Integer - целые числа
real,float(double) - дробные числа
var
i, n: integer;
begin
readln(n);
for i := 1 to 10 do begin
writeln(n,' x ', i, ' = ', n*i);
end;
end.
Var a,b:real;
begin
read(a,b);
swap(a,b);
write(a,b);
end.
Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал
Ответ на вопрос В) манекен