Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль. решить через for

Ответ оставил Гость

Первая задача переделанная под for 

program znanija;
var i,a,s:integer;
begin
a:=5;
s:=6;

for I:=5 to 9 do 
begin   
s:=s+a-1;   
inc(a); 
end;

Writeln(a, , s);
end.

Следующая программа найдёт все двузначные числа кратные трём и выведет их на экран 

program znanija;
var i:integer;
begin
for i:=10 to 99 do  if i mod 3 = 0 then write(i:3);
end.