Предмет: Информатика,
автор: Мозговина12
Помогите пожалуйста с информатикой!!!)
Приложения:
Ответы
Автор ответа:
1
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
Мозговина12:
CrazzyDog,в ответе должно быть число.
Ты на какой проге пишешь?
PASCAL?
нет
тогда
x=115
a=1
b=15
c=5
s=21
a=1
b=15
c=5
s=21
не на какой, задание просто такое нам задали...
x=115
a=1
b=15
c=5
s=21
a=1
b=15
c=5
s=21
Спасибо
Автор ответа:
0
при x = 115
s будет равна 21
s будет равна 21
Спасибо
Интересные вопросы
Предмет: Алгебра,
автор: vichka1978
Предмет: Математика,
автор: zansezimerkinbaj7
Предмет: Информатика,
автор: yesaulenko79
Предмет: Математика,
автор: MrSvitoi
Предмет: Математика,
автор: bossmen01