Помогите пожалуйста с информатикой!!!)
Приложения:
Ответы на вопрос
Ответил CrazzyDog
0
var
a,b,c,s,x:longint;
begin
readln(x);
a:=x div 100;
b:=x mod 100;
c:=x mod 10;
s:=a+b+c;
writeln(a);
writeln(b);
writeln(c);
writeln(s);
end.
PASCAL.ABC
a,b,c,s,x:longint;
begin
readln(x);
a:=x div 100;
b:=x mod 100;
c:=x mod 10;
s:=a+b+c;
writeln(a);
writeln(b);
writeln(c);
writeln(s);
end.
PASCAL.ABC
Ответил CrazzyDog
0
тогда
Ответил CrazzyDog
0
x=115
a=1
b=15
c=5
s=21
a=1
b=15
c=5
s=21
Ответил Мозговина12
0
не на какой, задание просто такое нам задали...
Ответил CrazzyDog
0
x=115
a=1
b=15
c=5
s=21
a=1
b=15
c=5
s=21
Ответил Мозговина12
0
Спасибо
Ответил RageOfHeaven
0
при x = 115
s будет равна 21
s будет равна 21
Ответил Мозговина12
0
Спасибо
Новые вопросы