Найти сумму целых и действительных чисел, кратных 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.