Ответ:
2 секунды
Объяснение:
256 = 2^8 цветов, значит один пиксель занимает 8 бит = 1 байт. Всего вся картинка занимает 60*120 = 7200 байт = 7200*8 = 57600 бит.
57600/28800=2.
Var i:integer;
begin
for i:=10 to 99 do
if (i mod 7=0) then writeln(i);
end.
1) a:=10
b:=5
b:=100+10/5 = 102
a:=102/6*5 =102/6=17*5=85
значение переменной а = 85
2) i s(3)
2 3+2*2=7
3 7+2-3=13
4 13+2*4=21
5 21+2*5=31
s=31
3) program n1;
var a:integer;
begin
write('введите число ');
readln (a);
if a>0 then
a:=a*8;
writeln ('a=', a)
end.
4) program n2;
var y,x:integer;
begin
write('введите число x - ');
readln (x);
if x>0 then
y:=x-2 else
if x<0 then
y:=abs(x) else
y:=0;
writeln ('y=', y)
end.
5) program n3;
var s,i:integer;
begin
write('сумма четных чисел в промежутке от 26 до 88 = ');
s := 0;
for i := 26 to 88 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
h = 0.1;
a = 0;
b = 1;
ПЕР
x: ВЕЩ;
УКАЗ
x := a;
ПОВТОРЯТЬ
Вывод.ЧВещ("\%.8f^", x * x, 0, 0, 0);
x := x + h
ДО x > b
КОН Задание.
Или 4,или 1
но больше всего 4