Program pr;
var x,y: integer;
begin
x:=3;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
x:=2;
y:=7*x*x+5*x+2;
writeln('При х=',x,', у=', y);
end.
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
1мб=1048576 байтов
1048576:4=262144 байт
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;