8 сек. занимает:видео - 640*480*1=307200аудио - 2*32000*8=512000всего - 819200
10Мб=10485760 б30кб=30720На слайды и звук: 10455040
<span>Итого: 10455040/819200=12,7625~12</span>
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}
<u><em>Задача №3</em></u><em><u> </u></em>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №4</em></u><em><u> </u></em>
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №5</em></u><u><em> </em></u>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
<span>End.</span>
Крокодил Гена.
Гена.
Может играть на балалайке
Зеленого цвета, высокий, смешной работящий