Александр Хейнонен
Оракул
(72548)
5 лет назад
Program sd;
uses crt;
var
a,b,c,d,x,e,p,s,y,z,r: integer;
Begin
clrscr;
Writeln('Введите трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y+r+s;
if z>=10
then
begin
write('сумма чисел = двухзначное число')
end
else write('сумма чисел = однозначное чило') ;
writeln(' = ',z);
readln;
End.
Удачи.
Самокатер
Ученик
(180)
5 лет назад
Program sd;
uses crt;
var
a,b,c,d,x,e,p,s,y,z,r: integer;
Begin
clrscr;
Writeln('Введите трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y+r+s;
if z>=10
then
begin
write('сумма чисел = двухзначное число')
end
else write('сумма чисел = однозначное чило') ;
writeln(' = ',z);
readln;
End.
Удачи.