Var
s:string[10];
f:Text;
begin
Assign(f,'a.txt'); Reset(f);
Readln(f,s); Close(f);
Writeln(s)
end.
Монитор,потому-что сканер,клава и микро вводят в комп информацию,а монитор выводит информацию
Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
1 мегабайт=1024*1024 =1048576 байт.... дальше сам
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to (n-1) div 2 do
if a[2*i+1]>max then max:=a[2*i+1];
writeln('max = ',max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42