Начало программы
С = 0
начало цикла от 1 до 5
ввод А
В = целая часть от А
если В = А, тогда С = С + 1
конец цикла
печать В
конец программы
Только хорек( ест и то и другое)
1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>