Var A:integer;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
if (A div 10000 = A mod 10)and((A div 1000) mod 10 = (A div 10) mod 10) then Write('Число является полиндромом')
else Write('Число не является полиндромом')
End.
Алг
нач
цел a, b, c
ввод a
ввод b
c := a + b
вывод c
кон
Вот так можно исправить, чтоб заработало
var
s, k: integer;
begin
s := 8;
for k := 2 to 8 do
s := s + 8;
writeln(s);
end.
1) Нужно нажать левой кнопкой мыши на стрелку под кнопкой "Выделить"
2) Выбрать прямоугольную или произвольную область.
Если выбрана прямоугольная область:
1) Нажать левой кнопкой мыши в том месте, где должен быть какой-либо угол прямоугольной области;
2) Не отпуская кнопку мыши, перевести мышь в то место, где должен быть противоположный угол;
3) Отпустить кнопку мыши.
Если выбрана произвольная область:
1) Нажать левой кнопкой мыши в том месте, где должно быть какое-либо место на границе произвольной области;
2) Не отпуская кнопку мыши, провести ей по границе произвольной области и замкнуть эту границу;
3) Отпустить кнопку мыши.
3) Нажать правой кнопкой мыши по выделенной области;
4) Выбрать "Копировать";
5) Нажать на любое место, кроме выделенной области правой кнопкой мыши;
6) Выбрать "Вставить".
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.