Помогите написать программу в паскале! Опции

[armstrong]

Найти сумму целых и действительных чисел, кратных 4 и меньше 50.
То есть от 4 да 48.

Предположительно я написал программу,но 7 и 8 строчка-не правильны!:
Program Robota 2;
Var i,n,p:integer;
begin
writeln('vvedite znachenie n');
write('n= ');
readln(n);
P:=4;
for i:=4 to 50 do - знаю,что не правильно (если будет такая запись, будет: 4,5,6,7...) а надо :4,8,12-интервал 4)
P:=P*i; тоже не правильно!
writeln(n, '!=' ,p);
end.

[ForesTop]

Может быть так?

Program Robota 2; 
Var i,n,p, sum:integer; 
begin 
writeln('vvedite znachenie n'); 
write('n= '); 
readln(n); 
P:=0; 
repeat
p:=p+4;
sum:=sum+p;
until p=48;
writeln(n, '!=' ,p); 
end.

Там ведь нужно найти сумму?

Сообщение отредактировано: ForesTop - 24.10.2010 12:14