Программирование на Lazarus - ответы
Количество вопросов - 439
a:= 0;repeata:= a - 1;until a <= 3;
varda : array of Integer;beginda[1]:= 10;
ShowMessage('Hello, world!');
var st: string;beginst:= 'нечестно';
a:= 10;b:= 20;if a >= b then a:= (b - a) * 2else if a = b then a:= (b + a) / 2else a:= a + b;
for a:= -3 to 3 do beginif a = 0 then breakelse b:= a;end;
a:= 0;while a <= 3 do a:= a + 1;
a:= 1;case a of0: b:= 10;1: b:= 20else: b:= 100;end;
vara : array [1..3] of Integer;b : Byte;beginfor b := 0 to 2 doa[b] := b;
a : array [1..3, 1..5, 1..10] of Integer;
varda : array of Integer;beginSetLength(da, 1);da[1]:= 10;
readln(a, b);read(c);
for a:= -3 to 3 do beginif a = 0 then continueelse b:= a;end;
vara : array [1..3] of Integer;b : Byte;beginfor b := 1 to 4 doa[b] := b;
ShowMessage('Hello, world!');
a:= 0;while do a <= 3 a:= a + 1;
a:= 0;repeat a <= 3a:= a + 1;until;
vara : array [1..3] of Integer;b : Byte;beginfor b := 1 to 3 doa[b] := b;
MyV:= '1';MyV:= MyV + '20';MyV:= MyV + 30;
a:= 20;b:= 30;if a <= b then a:= b / 2else a:= b * 2;
a:= 0;repeata:= a + 1;until a <= 3;
implementation{$R *.lfm}function MyFunc(s: PChar): PChar; stdcall; external 'MyDLL.dll';
a:= 1;case a of0: b:= 10;1: b:= 20else b:= 100;end;
a:= 5;b:= 10;if not (a >= b) then a:= belse a:= b * 2;
a:= 3;case a of0: b:= 10;1: b:= 20else b:= 100;end;
a : array [1..3, 1..5] of Integer;
read(a, b);read(c);
a:= 0;while True do a:= a + 1;
i:= 1;read();
v1:= 3;v2:= '5';v3:= 10;MyV:= v1 + v2 + v3;
i:= 0;readln();