Надо решить используя алгоритмическую структуру "цикл" : найти все трехзначные числа сумма цифр которых равна 8.

Var i,t,s: integer; begin   for i: =100 to 999 do             begin                    t: =i; s: =0;                           while t> 0 do            begin                  s: =s+t mod 10;                     t: =t div 10;                   end;           if s=8 then write(i,' ');             end; readln; end.

ответ A:

i = 0

n = int(input("Введите число: "))

while n != 0:

  if n % 3 == 0:

      i += 1

  n = int(input("Введите число: "))    

print("ответ: {}".format(i))

ответ Б:

i = 0

n = int(input("Введите число: "))

while n != 0:

  if (n % 10 == 3) and (n < 100 and n > 9):

      i += 1

  n = int(input("Введите число: "))    

print("ответ: {}".format(i))

ответ C:

i = 0

n = int(input("Введите число: "))

max = n

while n != 0:

  if n > max:

      max = n

  n = int(input("Введите число: "))    

print("ответ: {}".format(max))

program zz1;

var a, b, c, d, e, sum, pr:integer; //задаем переменные целого типа

begin

write(' введите первое число '); // вводим с клавиатуры первое число

read(a);

write(' введите второе число '); // вводим с клавиатуры второе число

read(b);

write(' введите третье число '); // вводим с клавиатуры третье число

read(c);

write(' введите четвертое число '); // вводим с клавиатуры четвертое число

read(d);

write(' введите пятое число '); // вводим с клавиатуры пятое число

read(e);

sum:=a + b + c + d + e;

pr:= a * b * c * d * e;

writeln(' сумма = ', sum); // выводим ответ

write(' произведение = ', pr);

end.м

Объяснение: