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

[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

[volvo]

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

Действительное число, кратное 4-м? "Не верю!!!" (С)

знаю,что не правильно (если будет такая запись, будет: 4,5,6,7...) а надо :4,8,12-интервал 4)

Ну, если знаешь, что неправильно - так сделай правильно. Числа кратные 4 - они все делятся на 4, следовательно, можно записать 4, 8, 12, 16, ... как 1*4, 2*4, 3*4, 4*4, ... А если еще четверку вынести за скобки при сложении - то вообще вот так: 4*(1+2+3+4+...+целая_часть_от_50_деленного_на_4). Такое реализовать сможешь? Это как раз обычный цикл, с шагом = 1.

тоже не правильно!

Естественно. Там про произведение нигде не сказано, у тебя СУММА.

P.S. Можно пойти еще дальше, и просто посчитать сумму по формуле для арифметической прогрессии. Но это уже самостоятельно, "если захочешь" (С)