Var a,i,n,k : integer;
Begin
randomize;
Readln(n);
for i:=1 to n do begin
    a:=random(7)-3;
    if a=0 then k:=k+1;
    writeln(i,' число = ',a);
end;
Writeln('Количество 0: ',k);
end.

0 0

4 года назад

Напишите программу вычисления суммы первых N целых положительных чисел (значение N вводится).Напишите весь алгоритм пожалуйста

Crolury [1]

Var n,i,s:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма: ',s);
end.

0 0

4 года назад

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

Татьяна П

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

0 0

4 года назад