//A lvl
var
i,sum: integer;
begin
i := 20; sum:=0;
while (i < 100) do
begin
inc(sum,i);
inc(i);
end;
Writeln(sum);
end.
// B lvl
var
i: integer;
sum:real;
begin
i := 1; sum:=0;
while (i <= 10) do
begin
sum := sum + 1 / i;
inc(i);
Writeln(sum);
end;
Writeln(sum);
end.
0 1 2 3 4 5 6 7 8 9 цифровая схема числение
/?!()@":;%|\<>_*числовая схема счисления
A c d e f n b I o t буквенная схема числения
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
включить принтер, проверить наличие бумаги в нем, если ее нет или мало, то добавить.
открыть документ, проверить что все в нем правильно, отправить на печать
<span>Контекстное меню- элемент графического меню.
</span>