Вывести на экран все числа из отрезка [1590; 3790], делящиеся нацело на 4 в столбец

👇

Увидеть ответ

Ответ:

nastyyanokogloStasya

26.03.2022

Program chik;
var i:integer;
begin
for i:=1590 to 3790 do
begin
if (i mod 4=0)then writeln(i);
end;
end.

4,8(11 оценок)

Открыть все ответы

Ответ:

amozgaleva96

26.03.2022

Особенности Windows:

Правила написания программы. Для работы в среде Windows программа должна быть написана по определенным правилам, существенно отличающимся от принятых в MS-DOS.

Windows позволяет запускать и программы, написанные для MS DOS, но при этом программы не могут использовать преимущества Windows.

Графический интерфейс пользователя в Windows основан на идее оконного интерфейса, принятого так же и в ряде других современных ОС (например, UNIX). Каждая программа имеет собственное окно, в котором и происходит обмен сообщений с пользователем. Для наглядности в Windows широко применяются иконки (пиктограммы), изображающие отдельные программы.

Кроме того, интерфейс Windows в значительной степени стандартизирован, что облегчает пользователям процесс освоения новых порограмм.

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

Обмен данными между приложениями. Кроме того возможен обмен данными между приложениями, что позволяет, например, информацию созданную в электронной таблице, перенести в текстовый документ через буфер обмена.

Объяснение:

Тенденции развития ОС на современном этапе

1. Развитие ОС происходит непрерывно по стадиям, этапам и фазам в зависимости от значимости достижений, новых технологий и разработок в аппаратном обеспечении компьютеров, периферийных устройств и коммуникаций.

2. Число конкурирующих ОС уменьшилось, выявились лидеры.

3. Свойства конкурирующих ОС сближаются.

4. Выделен ряд свойств, которыми должны обладать все системы.

5. Темпы разработки новых версий ОС увеличиваются, сокращая интервал выпуска до 1 – 2 лет.

6. Новая версия ОС, появляющаяся раньше новых версий конкурентов, может раньше захватить рынок, но обычно собирает всю критику конкурентов, друзей и врагов.

7. Новая версия ОС, выходящая последней, не только может учесть все ошибки и просчеты конкурентов, но и обязана сделать это.

4,4(41 оценок)

Ответ:

bilinia16

26.03.2022

Const
n = 6;

var
b: array[1..n, 1..n] of integer;
a: array[1..n] of integer;
i, j, s1, s2, max: integer;

begin
Randomize;
Writeln('Исходный массив');
//max := -777; {заведомо меньше меньшего}
for i := 1 to n do
begin
    for j := 1 to n do
    begin
      b[i, j] := Random(101) - 50;
      Write(b[i, j]:4)
    end;
    Writeln
end;

s1 := 0; s2 := 0;
for i := 1 to n do begin s1 := s1 + b[1, j]; s2 := s2 + b[j, j] end;
if s1 > s2 then begin
    Writeln('Сформированный массив');
    for i := 1 to n do
    begin
      max := b[i, 1];
      for j := 2 to n do if max < b[i, j] then max := b[i, j];
      a[i] := max;
      Write(max:4)
    end
end
else begin
    s1 := 0; s2 := 0;
    for i := 1 to n do
      for j := 1 to n do
        if b[i, j] > 0 then s1 := s1 + b[i, j]
        else s2 := s2 + b[i, j];
    Writeln('Среднее арифметическое положительных элементов= ', s1/n);
    Writeln('Среднее арифметическое отрицательных элементов= ', s2/n);
end
end.

Тестовые решения:
Исходный массив
-32 38 -10 42 -30 -35
-13 -22 14 -2 -42   0
-38 18 29 39 -26 19
15 23 -4 -31 21   8
-36 13 -26 -6 -13 -10
-11 38 40 11 -10 -22
Среднее арифметическое положительных элементов= 61.3333333333333
Среднее арифметическое отрицательных элементов= -69.8333333333333

Исходный массив
-37 -22 38 25 -23 21
-33 -50 32 42 -1   7
   9 29 -9 21 29 -4
50 13 -33 -13 -47 10
25 46 18 47 15 48
-48 12 -39 -8 34 14
Сформированный массив
38 42 29 50 48 34

4,6(13 оценок)

Это интересно:

05.07.2020

Надувание губ: 5 лучших способов...

Компьютеры-и-электроника

08.02.2020

Как быстро и безопасно отформатировать локальный диск на ПК...

Питомцы-и-животные

30.03.2021

Как правильно ухаживать за ежиком: досье на пушистых игривых существ...

Компьютеры-и-электроника

30.07.2021