Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад