Вопрос школьника по предмету Информатика
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;
Похожие вопросы от пользователей
45. picture frame / a / stylish / silver 48. velvet / lovely / cushions /some /square 46. pair of / polka dot /a / shorts / cotton 49. leather / two / brown / bags 47. armchair / wooden / a / comfortable 50. some / spoons / little /plastic