Управление электронным контентом помагите с тэстом

Знания

Информатика

1 ответ:

сергей рудик [21]3 года назад

0 0

Вариант три (надо 20 символов набрать))

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

Напишите программу которая вводит с клавиатуры натуральное число n и выводит на экран n первых элементов последовательности: 1,

Саул [364]

var

k,i,a:Integer;

begin

a:=1;

readln(k);

for i:=1 to k do begin

write(a,' ');

a:=a+a+1;

end;

end.

Это паскаль

0 0

4 года назад

Прочитать ещё 2 ответа

Люди плиииз . Помогите подобрать какое-то чудо техники ( не смартфон ) для пересказа . Дам 25 баллов

Даша3713

Машина времени. Компьютер. Телевизор.

0 0

4 года назад

Прочитать ещё 2 ответа

Дано N случайных чисел в диапазоне от -3 до 3. Вычислите, сколько из них не совпадают с 0. Составить программу, используя цикл f

Mallony Wood

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

3 года назад

Запиши алгоритм запуска программы Paint

Metal [735]

Дважды кликнуть ПКМ (Правой Кнопкой Мыши) по иконки Paint.

0 0

4 года назад

Помогите, пожалуйста, составить программы 1) составить программу, которая вычисляет 30% от введенного числа 2) Составить програм

ghsolt [4]

№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com - znanija.com/task/14923730#readmore

0 0

3 года назад