Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
Program b1; // отмеченные // писать не надо/
var a: string; // строковая переменная//
i: integer; // для цикла for//
n: integer; // кол-во раз//
begin // начало программы//
n:=4; //кол-во раз(в данном случае 4)//
a:='this is a text'; //текст//
for i:=1 to n do //цикл с 1 до n//
writeln(a); // вывод текста с каждой новой строки, если надо все в одну строку, то используем write(a);//
end. //конец//
1) 2 мб = 2048 КБ
2048: 40 = 51,2( раза больше)
( если что : деление)
1) 4 и 5
2) 1 и 6
3) 4 и 5
4) не знаю(
5) ложь или просто -, не знаю как у вас в школе
6) ложь или -
7) не знаю
8) вроде 4, но это не точно, так что аккуратно
Надеюсь помог