М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
88000535285
88000535285
29.08.2021 16:45 •  Информатика

Вывести на экран 10 чисел с шагом 2
X=37
X=35 и т.д.
Задание сделать в паскале ( остроумные ответы, в которых вы пишите, X=37
X=35
X=33 не принимаются)​

👇
Ответ:
FeagTV
FeagTV
29.08.2021

program yhguu;

var

a: integer;

begin

a := 37;

writeln(' 1) ', a - 2, ' 2) ', a - 4, ' 3) ', a - 6, ' 4) ', a - 8, ' 5) ', a - 10, ' 6) ', a - 12, ' 7) ', a - 14, ' 8) ', a - 16, ' 9) ', a - 18, ' 10) ', a - 20);

end.

4,4(54 оценок)
Открыть все ответы
Ответ:
olgastavovaya1
olgastavovaya1
29.08.2021

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

4,4(19 оценок)
Ответ:
qd1337
qd1337
29.08.2021

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

4,5(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ