Регистрация
SmeliyAlan556
23.01.2020 20:47
Информатика
Есть ответ 👍

Составьте программу, которая находит произведение цифр заданного четырехзначного числа

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

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

starikulia958
starikulia958
4,4(22 оценок)
Var  a, n, s: integer; begin  read(a);   s : = 1;   while a > 0 do   begin        n : = a mod 10;         s : = n * s;     a : = a div 10;   end;   write(s); end.
опв4
опв4
4,7(87 оценок)
Var n,i: integer; begin read (n); if (n> =1)then begin for i: =0 to n do begin if (i*2+i*i+1)< =n then writeln (i*2+i*i+1); end; end else writeln ('нет таких чисел'); end.

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