Для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
A = «Число 22 — чётное число» true (истина)
B =«Волк — травоядное животное» false (ложь)
Значения логического типа boolean занимают 1 байт и принимают одно из двух значений, задаваемых предопределенными константами True (истина) и False (ложь).
2-б
3-а
ббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббб