Ответы
Ответ дал:
0
var s:integer;
begin
writeln ('Введите двухзначное число ');
read(s);
if ((s<10) and (s>-10)) or ((s>=-100) and (s<=-100))
then writeln ('Число неверно')
else begin
s:=(s div 10)+(s mod 10);
writeln(s);
end;
end.
begin
writeln ('Введите двухзначное число ');
read(s);
if ((s<10) and (s>-10)) or ((s>=-100) and (s<=-100))
then writeln ('Число неверно')
else begin
s:=(s div 10)+(s mod 10);
writeln(s);
end;
end.
Ответ дал:
0
только ошибка s больше или равно 100 а у вас минус 100
Ответ дал:
0
в пятой строке
Ответ дал:
0
Да, верно, поторопился
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад