Var a,b,s:integer;
begin
a:=1;
b:=2;
while a+b<8 do
begin
a:=a+1;
b:=b+2;
end;
s:=a+b;
writeln ('s=', s)
end.
Постройте блок-схему к программе
163
188
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1625 от 17.01.2018// внимание! если программа не работает, обновите версию! function atodec(n: string; k: integer): integer; // перевод из системы по основанию k в десятичную begin var s: ='0123456789abcdef'; result: =0; var pa: =1; for var i: =length(n) downto 1 do begin result+=pa*(pos(n[i],s)-1); pa*=k end end; function dectoa(n,k: integer): string; // перевод из десятичной системы в систему по основанию k begin result: =''; while n> 0 do begin var r: =n mod k; if r< 10 then result: =r+result else result: =chr(ord('a')+r-9)+result; n: =n div k end end; function atob(s: string; a,b: integer): string; // перевод из системы по основанию a в систему по основанию b begin result: =dectoa(atodec(s,a),b) end; begin var n: =readlnstring('какое число перевести? '); var (a,b): =readinteger2('исходное и результирующее основания: '); writeln(n,'(',a,') = ',atob(n,a,b),'(',b,')'); end. пример какое число перевести? 2018 исходное и результирующее основания: 10 16 2018(10) = 7e2(16)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ivan50423.07.2021 01:33
-
alexalex25100304.09.2020 09:47
-
64bl9j827.08.2021 20:00
-
StehnkaSova09.06.2022 06:33
-
ARTIKSTUR23.06.2020 07:23
-
blurryriden10.06.2020 21:42
-
DARINASTAR9830.05.2021 09:07
-
aftullaeva214.09.2022 20:14
-
p1pal121.10.2020 16:57
-
Polinka089828.12.2020 09:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.