Информатика, опубликовано 2018-08-22 20:55:59 by Гость
pascalМеньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.