dasharisk2104
21.07.2022 09:56

переведите с c++ в паскаль​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
0101015
13.10.2020 19:44

var a,d,b,i,f,k: integer;

begin

readln(a);

for i:=1 to a do

 begin

 b:=b+1;

 if (b=5) then  

   begin

   b:=0;

   d:=d+1;

   end;

 end;

for i:=1 to (a*2)-50 do

 begin

 f:=f+1;

 if (f=3) then

   begin

   f:=0;

   k:=k+1;

   end;

 end;

writeln('1: ',2*a,' ',(2*a)*20);

writeln('2: ',a-d,' ',(a-d)*15);

writeln('3: ',(a*2)-50,' ',((a*2)-50)*10);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота