Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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