Викентий
5 год назад
Помогите пожалуйста с программированием !!!!!
ОТВЕТЫ
Laag
Jun 29, 2019
//прога на Pascal`е
var
a : longint;
begin
readln (a);
if abs(a)gt;9 then
write (abs ( (((a mod 100) - (a mod 10)) div 10) + (a mod 10)))
else write (В этом числе меньше двух знаков!);
end.
var
a : longint;
begin
readln (a);
if abs(a)gt;9 then
write (abs ( (((a mod 100) - (a mod 10)) div 10) + (a mod 10)))
else write (В этом числе меньше двух знаков!);
end.
18
Смежные вопросы:
