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

щотььллл щотььллл    1   25.05.2019 23:20    6

Ответы
nazarpl6222 nazarpl6222  22.06.2020 07:27
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.
ПОКАЗАТЬ ОТВЕТЫ
vika2087 vika2087  22.06.2020 07:27
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика