Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
<span>Ответ надо перевести в мегабайты! 647634 байт
</span>
2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
Потом монитор перестал работать и компьтер перестал работать тут остальные поняли что свмый важный монитор
1 PascalВыделить код
2uses crt;
3var a,b,x,y,z:integer;
4begin
5clrscr;
6writeln('Введите числа A,B');
7readln(a,b);
9x:=a+b;
10y:=a-b;
11z:=a*b;
12writeln(x);
13writeln(y);
14writeln(z);
15end.