Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!
Флешки,диски,аудиокассеты, видеокассеты, граммпластинки
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Натюрморт';
Println(s[6:8]+s[9]+s[7:9],s[9]+s[7:])
end.
<u>Результат</u>
мотор торт
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
<span>v=28800 бит\с
i=log(2) 16=4 бит - информационный объем пикселя
I= 800*</span>600<span>* 4= 1920000 бит- информационный объем картинки
t=I/v= 190000/28800=67 c</span>