Помогите пожалуйста решить задачи в паскале.
1)найти сумму целых положительных чисел из промежутка от a до b кратных 4.a и b вводим с клавиатуры.
2)найти перевертышь трехзначного числа.
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)
var i,n:integer;
s,tmp:string;
read(n);
tmp:=inttostr(n);
for i:=length(tmp) downto 1 do
s:=s+tmp[i];
write(s);
Для ABC Pascal. Иначе функцию inttostr нужно будет заменить на str(n,tmp)
<span> ближе всего скорее древнеегипетская письменность</span>
1000=8
0001=1
0110=6
0101=5
0111=7
0100=4
1001=9
0010=2