Регистрация
svdanilova
25.08.2021 14:57
Информатика
Есть ответ 👍

Составить программу, которая считывает 2 числа, наименьшее число увеличивает в 2 раза. результат выводит на экран.

140
495
Посмотреть ответы 2

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

r0ma000
r0ma000
4,4(88 оценок)

a, b, max: integer;

readln(a);

readln(b);

if (a< b) then begin

a: =a*2;

max: =a;

end

else begin

b: =b*2;

max: =b;

end;

writeln(max);

end.

желательно проверить работу программы. если что-то пошло не так - пишите, можете прислать фото ошибки. буду рад, если вы отметите моё решение как "лучший ответ"!

криссть111
криссть111
4,5(85 оценок)

Program lolol;

Var s, n, i:Integer;

Begin

Readln(s);

Readln(n);

Writeln('Квадраты чисел:');

For i:= 1 to s do

Writeln(i*i);

Writeln('Кубы чисел:');

For i:= 1 to n do

Writeln(i*i*i);

End.

(Паскаль)

Объяснение:

Начало - переменные s, n, i - ввод s - ввод n - вывод *цикл s* - вывод *цикл n* - конец.

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