Задачи по Pascal

[Poma][a]

На затравки

{*****************************************}
EvenNumbers := 0;
DividerOf3 := 0;

for i := 0 to 20 do 
	if i mod 2 = 0 then Inc(EvenNumbers)
	else if i mod 3 = 0 then Inc(DividerOf3);

{*****************************************}
s := 0;
for i := 1 to p do
	s := i+s; // а можно ариф. прогресс
WriteLn(s / (p+2));

{*****************************************}
ReadLn(n); diff := 0;
for i := 1 to n do begin
	Read(a[i]); if a[i] <> 0 then Inc(diff);

{*****************************************}
function f() : Real;
begin
	Read(a, b, c, d, e);
	f := (a+b+c+d+e)/5
end;

[ZX Spectrum-128]

Не поможет затравка. Да и не нужна она уже ей. Все порешали уже.

[Serge_Bliznykov]

ок. тогда я тему закрываю...