Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
var
n: integer;
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
т.д.
я считаю что серверов 2) 10 000 000
Популярные вопросы