Регистрация
dashadasha22399
08.08.2022 17:13
Информатика
Есть ответ 👍

Напишите программу,которая запрашивает с клавиатуры целое число от 1 до 1000 и выводит на экран произведение этого числа на все целые числа от 1 до 100 Пример:
Вводим число 7
Программа выводит
7*1=7
7*2=14
7*3=21
...
7*100=700

290
449
Посмотреть ответы 2

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

lyntik228
lyntik228
4,5(21 оценок)

Язык программирования: Pascal ABS.NET

Program composition;

Var a, b, P: integer;

begin

WriteLn ('Введите первое число');

Write ('a=');

ReadLn (a);

WriteLn ('Введите второе число');

Write ('b=');

ReadLn (b);

P:= a*b;

WriteLn ('Произведение:',P);

end.

Объяснение:

26Violetta26
26Violetta26
4,6(65 оценок)
Var x1,x2,x3,x4,x5,max: real; begin writeln('x1 x2 x3 x4 x5'); readln(x1,x2,x3,x4,x5); max: =x1; if max< x2 then max: =x2; if max< x3 then max: =x3; if max< x4 then max: =x4; if max< x5 then max: =x5; writeln('наибольшее число - ',max); end.

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