Var x,s:real;
begin
x:=2;
while x<3 do
begin
S:=S+x;
x:=x+0.1
end;
writeln (S);
readln
<span>end.</span>
1. Открыть текстовый редактор
2. Набрать содержимое файла
3. Нажать на клавиатуре сочетание клавиш Ctrl + S
4. Выбрать папку, куда сохранится файл
5. Ввести имя файла
6. Нажать кнопку "Сохранить"
В каких паскалях?!! Где условие задачи?
На третьем. Если подумать, то это единственный логичный ответ...задача кстати не 4 класс.
Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.