325 = 101000101(2)
325 = 505(8)
325 = 145(16)
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.
A:\Документы\Сочинения\Литература.doc.
А:\Фото\Принтер.bmp
А:\Фото\Компьютер.bmp