LonelyFox1705
07.05.2023 02:07

1. Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования. Алгоритмический язык

алг
нач
  цел n, s
  n := 0
  s := 0
  нц пока 3*s < 111
    s := s + 8
    n := n + 2
  кц
  вывод n
кон

 
2. Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования.
Алгоритмический язык

алг
нач
    цел s, n
    s := 80
    n := 0
    нц пока s + n < 150
        s := s − 5
        n := n + 15
    кц
    вывод n
кон​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
zahar64
13.01.2020 05:47

Начну с плюсов и минусов.

Плюсы

Одним из главных плюсов является компактность, ведь в одном устройстве могут хранится тысячи книг. Кроме того, устройство обычно меньше и легче бумажной книги. Так же в книжных магазинах книги могут стоить 500 рублей, 2000 руб и выше и цены разные, а в интернет-магазинах для электронных книг книги могут стоить в несколько раз дешевле.

Минусы

Как любые электронные приборы, устройства для чтения электронных книг гораздо чувствительнее к повреждениям , нежели обычные книги. Многие издатели официально не публикуют электронные версии бумажных книг, но стоит понимать, что многие читатели сами загружают книги в общий доступ. Устройства для чтения электронных книг требуют периодической зарядки (батареи).


Вообщем плюсов и минусов больше, но они не относятся к каждой электронной книги,а эти есть у всех.

0,0(0 оценок)
Ответ:
лсоаоа
31.12.2020 06:01

Код будет работать в Pascal ABC

(в остальных программах нужно поменять функцию рандома чисел)


program p1;

var  

  //Пусть массив будет состоять из 50 элементов

  n:array[1..50] of integer;

  i, j, s:integer;

begin

   

  //Создание массива случайный чисел от -10 до 50

  for i:= 1 to 50 do

    begin

       n[i]:= random(-10, 50);

       writeln(n[i]);

    end;

     

     //Подсчет  

     for j:= 1 to 50 do

       begin

          if n[j] > 10 then

            begin

              s:=s+1;

            end;

       end;

     

    WriteLn('Элементов больше 10: ', s);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота