Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.
100 div 5 = 20
__________________________________________
Ответ:
program Fx;
var
x, fx: Double;
begin
Write ('X = ');
ReadLn (x);
if x <= 3 then
fx := x * x - 5 * x + 4
else
fx := 1 / (x * x * x + 8);
WriteLn ('F (x) = ', fx :15 :10);
ReadLn;
end.
var a, b:integer;
begin
writeln ('Введите стороны a и b');
writeln ('Введите сторону a');
readln (a);
writeln ('Введите сторону b');
readln (b);
writeln;
writeln ('Периметр = ', (a+b)*2);
writeln ('Площадь = ', a*b);
readln;
end.