<span>Program Bob;
var z:integer;
begin
writeln('введи номер дня недели');
readln(z);
if z=1 then writeln('Понедельник')
else if z=2 then writeln('Вторник')
else if z=3 then writeln('Среда')
else if z=4 then writeln('Четверг')
else if z=5 then writeln('Пятница')
else if z=6 then writeln('Суббота')
else if z=7 then writeln('Воскресенье')
else writeln('нет такого дня недели');
readln;
end.
Пожалуйста :) ЫЫЫ</span>
Ответ:Он разрурится
Чтобы робот переместился из точки А в точку В нужна такая последовательность команд : 32324
Объяснение:
Прямоугольна система состоит из 3 осей(x,y,z).
300*1200 - количество пикселей
24 - "вес" каждого в битах.
300*1200*24 - общий вес изображения в битах
/8 - перевод в байты
/1024^2 - перевод в мегабайты.
Возведение в степень
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.