Предмет: Информатика,
автор: nadezhdа11
Напишите программу, которая вычисляет сумму цифор только трехзначных чисел
Ответы
Автор ответа:
1
var a,b,c,d:integer;
begin
writeln('Введите число:');
readln(a);
if (a div 1000=0) and (a div 100>0) then begin
b:=a div 100;
c:=a div 10 - (a div 100) * 10;
d:=a - (a div 10)*10;writeln(b+c+d);
end
else writeln('Вы ввели не трехзначное число.');
end.
begin
writeln('Введите число:');
readln(a);
if (a div 1000=0) and (a div 100>0) then begin
b:=a div 100;
c:=a div 10 - (a div 100) * 10;
d:=a - (a div 10)*10;writeln(b+c+d);
end
else writeln('Вы ввели не трехзначное число.');
end.
*writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10;
И тогда можно вырезать из var: b,c,d
И тогда можно вырезать из var: b,c,d
Получится:
var a:integer;
begin
writeln('Введите число:');
readln(a);
if (a div 1000=0) and (a div 100>0) then begin
writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10);
end
else writeln('Вы ввели не трехзначное число.');
end.
var a:integer;
begin
writeln('Введите число:');
readln(a);
if (a div 1000=0) and (a div 100>0) then begin
writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10);
end
else writeln('Вы ввели не трехзначное число.');
end.
Похожие вопросы
Предмет: Русский язык,
автор: kozlovaangelina
Предмет: Другие предметы,
автор: птмпль
Предмет: Русский язык,
автор: regionagustin
Предмет: Алгебра,
автор: aruukest
Предмет: Математика,
автор: TopLolka
b:=a div 100;
c:=a div 10 - (a div 100) * 10;
d:=a - (a div 10)*10;writeln(b+c+d);
на вот этот:
writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10;writeln(b+c+d))