Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.
1. Нуль пустая клетка, 1 - закрашенная
32 - 00100000
224 - 1110000
225 - 1110001
63 - 00111111
33 - 00011111
99 - 01100011
2. Если в условии задаче примем все числа в двоичной и переведем десятичную получим: 4 братьев. Младшему 8 лет, а старшему 15 лет и он учится в 9 классе. Ответ: Может такое быть
3. Столбиком делите и будет счастье)))
2^8=256 оттенков
=>Так как 7 бит недостаточно(128 оттенков), 8 бит.
1. 1) прямоугольник
2) прямоугольник
3) паралелограмм
2. 1) трапеция
2) круг
3) большой круг
3. 1) прямоугольник
2) трапеция
3) квадрат
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>