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

0 голосов
262 просмотров

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


Информатика (12 баллов) | 262 просмотров
Дан 1 ответ
0 голосов

Program chisla;
var a:integer;
begin
writeln('Введите четырехзначное число ');
readln(a);
if (a>=1000) and (a<=9999) then<br>begin
a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);
writeln('Сумма цифр этого числа: ',a);
end
else writeln('Это не четырехзначное число');
end.

(654 баллов)