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

[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.

[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. Можно пойти еще дальше, и просто посчитать сумму по формуле для арифметической прогрессии. Но это уже самостоятельно, "если захочешь" (С)