4 года назад

Цепочка превращений миг-.....век, бант-... коса, шар-...куб,муха-...слон.

1 ответ:

0 0

миг-маг-мак-бак-бек-век
бант-кант-карт-кара-кора-коса
Шар-Пар-Пир-Тир-Тор-Том-Лом-Лоб-Луб-Куб
муха-мура-тура-тара-кара-каре-кафе-кафр- каюр-крюк-урюк-урок-срок-сток-стон-слон

Читайте также

Номер 3 пожалуйста напишите

Elizabetrue [255]

В 1 коробке ( с ленточкой ) есть кукла , во второй нет открытки

0 0

4 года назад

Составить блок схему и программу,которая считывает 10 чисел вещественных у пользователя и определяет число положительных чисел и

Катрина123456789

var

a: array[1..10] of real;

b,c,d,f: integer;

begin

f:=1;

writeln('Введите 10 чисел');

for d:=1 to 10 do

begin

readln(a[f]);

if a[f]>0 then

c:=c+1;

if a[f]<0 then

b:=b+1;

f:=f+1;

end;

writeln('Положительных чисел ',' ',c);

writeln('Отрицательных чисел ',' ',b);

end.

0 0

4 года назад

Помогите видео записано при помощи бандикама,но в последнее время вегас не принимает, что с этим делать??

Мадам М

1: удали Sony Vegas
2: установи K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.

0 0

1 год назад

3адана программа вычисления n-го элемента из ряда чисел Фибоначчи (n>2) согласно определению ряда: F1=1, F2=2, Fi=Fi-1+Fi-2,

makler

Program Numbers_Fib;

Var K, N, A, B, C: integer;

Begin

Writeln {введите номер N искомого числа Фибоначчи};

Readln (N);

A:=1; {первый элемент}

B:=2; {второй элемент}

For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}

begin

C:=B+A; {новый элемент, с номером k}

A:=B; {элемент с номером k-1 становится k-2-м элементом }

B:=C; {элемент с номером k становится k-1-м элементом }

End;

Writeln {N,‘- ый элемент последовательности равен’, C};

End.

0 0

4 года назад

Вводить числа с клавиатуры до тех пор ,пока сумма четных из них не совпадёт с суммой нечетных

Саяна [11]

Var
A:integer;
Sc,Sn:real;
Begin
Sc:=0;
Sn:=0;
Repeat
Read(A);
if A mod 2 = 0 then Sc:=Sc+A
else Sn:=Sn+A;
Until Sc=Sn;
WriteLn('S = ',Sc)
End.

0 0

1 год назад