Sos. найти произведения четных чисел от 10 до 20. написать программу в паскаль

ВладИК08123 ВладИК08123    1   26.08.2019 03:00    2

Ответы
thomsonrubi thomsonrubi  05.10.2020 20:07
begin  writeln ('введите целое число');  readln( a ); x:=a;  s:=0;  while ( x<>0 ) do  begin    s := s + (x mod 10);    x := x div 10;  end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика