Задача 1. Найти все делители натурального числа. program nat; var n,i:integer; begin writeln('n='); readln(n); for i:=1 to n do if n mod i =0 then write(i,' '); end.
Задача 2. Найти сумму чисел от 1 до 256 кратных 3. program sum; var s,i:integer; begin s:=0; for i:=1 to 256 do if i mod 3 =0 then s:=s+i; writeln('s=',s) end.