Помогите пожалуйста решить задачи в паскале. 1)найти сумму целых положительных чисел из...

Question

Помогите пожалуйста решить задачи в паскале.

1)найти сумму целых положительных чисел из промежутка от a до b кратных 4.a и b вводим с клавиатуры.

2)найти перевертышь трехзначного числа.

Answer 1

1)

uses crt;

var a,b,i,sum:integer;

begin

read(a,b);

for i:=a to b do

if (i>0) and (i mod 4=0) then sum:=sum+i;

write(sum);

end.

2)

uses crt;

var i,n:integer;

    s,tmp:string;

begin

read(n);

tmp:=inttostr(n);

for i:=length(tmp) downto 1 do

s:=s+tmp[i];

write(s);

end.

Для ABC Pascal. Иначе функцию inttostr нужно будет заменить на str(n,tmp)