Регистрация
tarassedelniko
30.12.2022 12:37
Информатика
Есть ответ 👍

Дано трехзначное число. Написать программу, которая вычисляет сумму его цифр.

242
409
Посмотреть ответы 2

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

Викуся200631
Викуся200631
4,5(15 оценок)

Var sum, a, a1, a2, a3:integer;

Begin

Writeln('Введите трехзначное число');

Readln(a);

a1:=a div 100 ;

a2:=(a div 10) mod 10 ;

a3:=a mod 10;

sum:=a1+a2+a3;

Writeln(sum);

End.

striletsnastya
striletsnastya
4,6(20 оценок)
Program pr1 var people,year: real; begin people : = a; year = 2014; while year < = 2024 do begin write ("год: " + year + ", население: " + people); year : = year +1; people : = a * 1.05; end; end.

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