Регистрация
лина574
05.07.2022 13:52
Информатика
Есть ответ 👍

Составить программу которая вводит и суммирует целые числа a, пока a не равно 999. последний результат суммирования выводится на экран. 50 ! ​

195
500
Посмотреть ответы 1

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

Шакира228
Шакира228
4,6(60 оценок)
Var a,b,i,s,p: integer; begin readln(a); s: =0; p: =1; for i: =1 to 7 do   begin   b: =a mod 10;   s: =s+b;   p: =p*b;   a: =a div 10;   end; writeln('s = ',s,' p = ',p,' sr = ',s/7: 5: 2); end. пример: 1389546 s = 36 p = 25920 sr = 5.14

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