Регистрация
Дашакотик010405
03.06.2020 10:57
Информатика
Есть ответ 👍

Pascal меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.

104
326
Посмотреть ответы 3

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

dmitriyvoron8
dmitriyvoron8
4,5(32 оценок)
Var a,b,c: integer; begin readln(a,b); if a> b then  b: =b*2 else if a< b then  a: =a*2; writeln(a,' ',b) end.
avernius
avernius
4,5(3 оценок)
Program sum; uses crt; var a,b: real; begin writeln('введите число а: '); read(a); writeln('введите число b: '); read(b); if (a> b) then a: =a*2 else b: =b*2; writeln('числа после измения а=',a,' b=',b); end.
Venjin
Venjin
4,6(13 оценок)
Var i: integer; begin writeln('введите число'); readln(i); if ((i mod 2)< > 0) then       writeln('число нечетное') else       writeln('число четное'); end.

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