Регистрация
gerasimenkocatia
26.04.2023 00:58
Информатика
Есть ответ 👍

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

144
254
Посмотреть ответы 3

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

arina270316
arina270316
4,6(15 оценок)
Program n1; var a: integer; begin readln(a); a: =abs(a); write((a div 100)+ (a mod 10)+ (a mod 100 div 10)); end.
softani1105
softani1105
4,7(49 оценок)
Var i,n,s: integer; begin write('введите трехзначное число '); read(n); i: =0; while (n< > 0) do begin s : =n mod 10; i: =i+s; n: = n div 10; end; writeln('сумма цифр  : ',i) end.
roksi100200
roksi100200
4,4(90 оценок)
Var p: real;     i: integer; begin   p: =1;   for i: =1 to 4 do      p: =p*((2*+5)/(2*i));   writeln(p: 7: 4); end. -72.1875

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