SOS. Найти произведения четных чисел от 10 до 20. Написать программу в Паскаль
SOS. Найти произведения четных чисел от 10 до 20. Написать программу в Паскаль
Гость
Ответ(ы) на вопрос:
Гостьbegin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Не нашли ответ?
Похожие вопросы