Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Надеюсь знаешь как это делать ,получится число 1111001
105 делиш на 2 пока не получишь 0 и в обратном порядке записываешь числа
Ответ:
Если вопрос дальше такой:
который закрашивает клетки:
а) ниже каждой закрашенной клетки.
б) выше и ниже каждой закрашенной клетки. То ответ:
А) вниз пока (справа свободно) закрасить вправо конец б) вверх пока (справа свободно) закрасить вправо вниз вниз пока (слева свободно) закрасить влево конец
Правильный ответ: 4,5 Мбайта
Объяснение:
4718592 байт / 1024 = 4608 Кбайта
4608 Кбайт / 1024 = 4,5 Мбайта