Program z1;
var f: array[1..14] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 14 do
begin
f[i]:=random(16,35);
writeln(f[i],' человек',' в',' ',i,' классе');
Sum:=Sum+f[I];
end;
writeln('----------------------');
writeln ('Всего человек:',sum);
writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.
writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).
end.
1 байт =8 бит
1 Килобайт - 1024 байта
1 Мега байт -1024 Килобайта
1 Гигабайт - 1024 Мегабайта
1 Терабайт - 1024 Гигабайта
1 Пета байт = 1024 Терабайта
1 Этабайт - 1024 Петабайта
<span> - так если мне память не изменяет
:)</span>
<span>1) </span><span>program</span> Mult<span>(</span>output<span>)</span>; <span>begin</span> var k,m: integer; k:=12; m:=1; while(k<800) begin m:=m*k; k:=k+12; end; write(m); <span>end</span>.
2) <span>program</span> EvenNumbers<span>(</span>output<span>)</span>; <span>begin</span> n, m, even, i: integer; even:=0; write('Enter number N: '); read(n); writeln(); if n<=0 then exit; write('Enter a number: '); for i:=1 to n do begin read(m); writeln(); if i<n then begin write('Enter a number: '); end; if m div 2 = 0 then even:=even+1; end; write(even); <span>end</span>.
3) <span>program</span> Mine<span>(</span>output<span>)</span>; <span>var</span> i <span>:</span><span>integer</span>; function Print<span>(</span><span>var</span> j <span>:</span><span>integer</span><span>)</span>;real; <span>begin</span> Print:=1/<span>exp(ln(j) * </span>5<span>)</span><span>end</span>; <span>begin</span> n,i:integer; m:real; write('Enter number N: '); read(n); m:=0; for i:=1 to n do m:=m+Print(i); writeln(); write(m); <span>end</span>.
В отличие от цикла while, условие вычисляется после
очередной итерации цикла, и если оно истинно, то происходит выход из цикла.
Таким образом, операторы, образующие тело цикла оператора
repeat, выполняются по крайней мере один раз.
Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.
1)Цикл выполнится 1 раз:
i:=i-1=-1
s=-1/1=-1
-1<1 условие выполняется, цикл прерывается.
2)цикл выполнится 3 раза:
1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.
2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.
3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.
Ответ:
Так у Вас там пароль: P7ypbqi6
Но если не сможете решить эту проблему, то позвоните в техническую поддержку Ростелеком.