Var
    amoebas, t: integer;

begin
    amoebas := 1;
    t := 0;

    repeat
        t := t + 3;
        amoebas := amoebas * 2;
        Writeln(amoebas, ' амеб через ', t, ' часа');
    until t >= 24;
end.

0 0

4 года назад

15б-в.Сделайте блок схему

Фрайайм [1]

Начало и конец программы в овале, действия в квадратах. Программа совершается последовательно

0 0

4 года назад

Дан целочисленный массив из 30 элементов,.Элементы могут принимать значения от 0 до 100-баллы, полученные на ЕГЭ.Опишите на русс

Вася Я

Const N=30;
var A: array [1..N] of integer ;
i, x, y:integer;
s: real ;
begin
for i:=1 to N do readln (A [i]);
x:=0;y:=0;
for i:=1 to N do
if a[i]>20 then begin
inc(x);
y:=y+a[i];
end;
s:=y/x;
writeln(s);<span>end.</span>

0 0

4 года назад

Даны два числа. Если оба числа отрицательные и первое больше второго,то каждое увеличится в 2 раза, иначе увеличьте их на 2. Со

Ayn

За вранье про 30 баллов не старался рисовать XD , а так всё правильно ;)

0 0

4 года назад