• Заполни пропуски в программе.

    Вывод на экран кубов чисел от 11 до 4.

    var
    :integer;
    begin
    for i:=
    downto
    do
    writeln (i*i*i);
    readln;
    end.


    2)Дано: fori:=1to23do

    i изменяется от
    до
    с шагом
    3)Запиши программу на языке Паскаль.

    var
    i,n:word;
    begin
    write('n=');
    readln(n);
    for i:=1 to n do begin write(i,' ');
    end;
    readln;
    end.

    На экране

    n=2

    4
    2
    12
    0


    4)Выбери верный ответ.

    Программа, выводящая 35 раз слово "Russia".

    var i : integer;
    begin
    i := 1 to 35 do
    writeln ('Russia ');
    readln;
    end.
    var i : integer;
    begin
    for i := 1 to 35 do
    readln;
    end.
    var i : integer;
    begin
    for i := 1 downto 35
    writeln ('Russia ');
    readln;
    end.
    var i : integer;
    begin
    for i := 1 to 35 do
    writeln ('Russia ');
    readln;
    end.
    5)Запиши программу на языке Паскаль.
    Определить, является ли число, введенное с клавиатуры простым.

    Файл не выбран
    Максимальный размер файла: 500 кБ

Ответы 1

  • Ответ:

    var i : integer;

    begin

    for i:= 11 downto 4 do begin  

    writeln (i*i*i);

    end;

    readln;

    end.

    Объяснение: с   downto

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years