Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Program prog;
Uses crt;
var a: integer;
begin
clrscr;
write('a = ');
readln(a);
if ((abs(a)>9) and (a100)) then
writeln('Sum = ', abs(a mod 10) + abs(a div 10))
else
writeln('Error');
end.