Регистрация
Elvirashka
18.08.2022 03:41
Информатика
Есть ответ 👍

Циклические алгоритмы 1.найти произведение семи целых чисел, вводимых с клавиатуры. 2. найти сумму чисел от 30 до 20.

274
436
Посмотреть ответы 2

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

martinovvanya2
martinovvanya2
4,7(73 оценок)
За 5 вот решение 2-ой program n2; var i, sum: integer; begin sum: =0; for i : = 20 to 30 do begin sum: =sum+i; end; writeln('сумма чисел от 20 до 30 = ', sum); end.
mmmkkk3
mmmkkk3
4,4(31 оценок)

a)

program pr1; uses crt; var a,b,c: integer; beginclrscr; readln(a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if a> b then writeln('первая цифра > ')else writeln('вторая цифра больше'); end.

b)

program pr1; uses crt; var a,b,c: integer; beginclrscr; readln(a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if b> c then writeln('вторая цифра > ')else writeln('третья цифра больше'); end.

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