08.06.2022 04:42
Решено
Напишите команды выборки для получения справки с использованием сложных логических выражений: определить все даты до апреля 2018 года, когда температура была ниже нуля. определить фамилии всех учеников, которые посещают занятия по музыке и по хореографии. получить список всех хорошистов по гуманитарным дисциплинам. определить фамилии авторов книг с названием «сказки», выпущенных после 1985 года. получить фамилии авторов книг и названия книг, выпущенных в период с 1990 по 2000 год. в каждом пункте продумать и проиллюстрировать необходимые поля и записи. нужно выполнить на бланке или в тетради.
Лучшие ответы
3
4,4(6 оценок)
Информатика
08.06.2022 07:53
Const n = 7; var a: array [1..n] of integer; i: integer; begin writeln('начальный вид массива: '); for i : = 1 to n do begin a[i] : = 5 + random(31); writeln('a[', i, ']=', a[i]: 3); end; writeln('конечный вид массива: '); for i : = 1 to n do begin if a[i] > 15 then a[i] : = 8; if a[i] = 5 then a[i] : = 0; writeln('a[', i, ']=', a[i]: 3); end; readln end.
10
4,6(67 оценок)
Информатика
08.06.2022 07:53
Var a: array[1..12]of integer; i: integer; begin writeln('исходный массив: '); for i: =1 to 12 do begin a[i]: =random(51); write(a[i]: 4); end; writeln; if a[5]< a[10] then begin a[5]: =a[5]*2; a[10]: =a[10]*2; end else begin a[5]: =0; a[10]: =0; end; writeln('преобразованный массив: '); for i: =1 to 12 do write(a[i]: 4); end.
7
4,6(73 оценок)
Информатика
15.02.2023 02:47
19
4,6(87 оценок)
Информатика
21.03.2021 13:59
7
4,5(18 оценок)
Информатика
16.06.2020 21:33
20
4,7(11 оценок)
Информатика
02.07.2020 05:11
9
4,4(96 оценок)
Информатика
26.10.2021 22:13
3
4,6(21 оценок)
Информатика
18.03.2023 12:11
6
4,6(40 оценок)
Информатика
11.09.2021 23:05
18
4,6(13 оценок)
Информатика
22.11.2022 15:00
18
4,5(75 оценок)
Информатика
07.08.2022 07:52
17
4,5(81 оценок)
Информатика
17.04.2021 04:06