Регистрация
nastusya0307
01.09.2020 00:45
Информатика
Есть ответ 👍

Напишите программу, которая считает три числа и большее из них уменьшит на 5.

267
323
Посмотреть ответы 2

Ответы на вопрос:

Zhekka123
Zhekka123
4,8(66 оценок)
Program gt; var a,b,c,max: integer; begin readln(a,b,c); max: =a; if(b> max)then max: =b; if(c> max)then max: =c; if(a=max)then a: =a-5; if(b=max)then b: =b-5; if(c=max)then c: =c-5; writeln(a,' ',b,' ',c); end.
L1mbada
L1mbada
4,8(96 оценок)
Var a,i: integer; begin a: =1; for i: =1 to 10 do   begin   a: =a*2;   write(a,' ');   end; end. результат: 2 4 8 16 32 64 128 256 512 1024

Популярно: Информатика