Var i:integer;s:real;begins:=0;for i:=1 to 20 dos:=s+(1/i);writeln('y = ',s);end.
N1=28x8=224
N2=(28+11)x8=312
<span>N2-N1=312-224=88</span>
Процессор
Текстовый процессор — вид прикладной компьютерной
программы, предназначенной для производства (включая набор,
редактирование, форматирование, иногда печать) любого вида печатной
информации. Иногда текстовый процессор называют текстовым редактором
второго рода.
Текстовые процессоры, в отличие от текстовых
редакторов, имеют больше возможностей для форматирования текста,
внедрения в него графики, формул, таблиц и других объектов. Поэтому они
могут быть использованы не только для набора текстов, но и для создания
различного рода документов, в том числе официальных. Классическим
примером текстового процессора является Microsoft Word.
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.