1) даны 5 чисел, вывести числа кратные 2 и 4. 2) даны числа а и в, вывести количество отрицательных чисел в промежутке от а до в

👇

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

Ответ:

ВикаФан

05.03.2021

1) Var i:Integer;

A:array[1..10]of integer;

Begin

Write('Введите пять цифр') ;

For i:=1 to 5 do begin

Read(a[i]) ;end;

Write('Кратные двум') ;

For i:=1 to 5 do begin

If a[i] mod 2 =0 then write(' ', a[i]) ;

End;

Write('кратные четырем') ;

For i:=1 to 5 do begin

If a[i] mod 4 =0 then write(' ', a[i]) ;

End;

End.

2)Var a, b, k, i:integer ;

Begin

Write(' a=') ;read(a) ;

Write(' b=') ;read(b) ;

If (a>0)and(b>0) then k:=0;

If (a>0)and(b<0) then k:=abs(b) ;

If (a<0)and(b>0) then k:=abs(a) ;

If (a<0)and(b<0) then k:=abs(a-b) ;

Write('колво отрицательных чисел ', k) ;

End.

4,5(33 оценок)

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

Ответ:

goodsmalgirl

05.03.2021

Const
MAX_SIZE = 10;

var
a: array[1..MAX_SIZE] of integer;
i, size: integer;

procedure delete_odd_elements();
var i, j: integer;
begin
i := 1;
repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
until i > size;
end;

begin
writeln('Исходный массив: ');
size := MAX_SIZE;
for i := 1 to size do
begin
    a[i] := random(100);
    write(a[i] : 3);
end;
delete_odd_elements;
writeln;
writeln('Полученный массив: ');
for i := 1 to size do
    write(a[i] : 3);
end.

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

Ответ:

Rustamka45

05.03.2021

Кто с промежуточной аттестацией (тестом) Предупреждение : Wery Hard

--1 во Закончите фразу : "Информация это -

1)Последовательность знаков некоторого алфавита.

2)Книжный фонд библиотеки.

3)Сведения об окружающем мире и протекающих в нём процессах, воспринимаемые человеком непосредственно или с специальных устройств.

4)Сведения,содержащиеся в научных теориях.

--2 во Закончите фразу: "Компьютер это -

1)Устройство для автоматической обработки числовой информации.

2)Устройство для хранения информации.

3)Устройство для поиска,сбора,хранения,преобразования и использования информации в цифровом формате.

4)Совокупность программных средств,осуществляющих управление информационными ресурсами.

--3 во Отметьте информационные процессы (действия с информацией)

1)Работа на компьютере с клавиатурным тренажёром"

2)Установка телефона музыкального диска"

4)Чтение книги"

5)Видеодиск

6)Заучивание правила"

7)Толковый словарь

8)Видео

--4 во Отметьте устройства, предназначенные дл вывода информации.

1)Принтер"

2)Процессор

3)Монитор"

4)Сканер

5)Графопостроитель"

6)Джойстик

7)Клавиатура

8)Мышь

9)Микрофон

10)Акустические колонки"

11)Диск.

--5 во Отметьте элементы окна не имеющие отношения к приложению Paint.

1)Название приложения

2)Строка меню

3)Кнопка Закрыть

4)Кнопка Свернуть

5)Панель инструментов

6)Палитра

7)Панель Формирование"

8)Рабочая область

9)Полосы прокрутки

--6 во Отметьте операции при формировании документов.

1)Вставка

2)Удаление

3)Замена

4)Изменение шрифта"

5)Изменение начертания"

6)Изменение цвета"

7)Поиск и замена

8)Выравнивание"

--7 во Отметьте верное.

1)При формировании текстового документа происходит обработка связанная с получением нового содержания,новой информации или обработка информации не происходит.

2)При разработке плана действий происходит обработка, связанная с изменением формы информации, но не имеющая её содержания"

--8 во Отметьте информационные процессы (действия с информацией).

1)Разговор по телефону"

2)Посадка дерева

3)Диск любимой музыкальной группы

4)Письмо приятелю

5)Выполнение контрольной работы"

6)Разгадывание кроссворда телепередачи"

8)Учебник математики

--9 во пошла дичь) Считая,что каждый символ кодируется одним байтом, определите информационный объём следующего текста :

"В 1642 году Б.Паскаль создал первую механическую счётную машину."

1)64 бита