Ниже представлены две таблицы из базы данных. каждая строка таблицы 2 содержит информацию - id1003259920220706 от dilnaz61 06.07.2022 20:03

Question

Информатика: Ниже пред­став­ле­ны две таб­ли­цы из базы дан­ных. каж­дая стро­ка таб­ли­цы 2 со­дер­жит ин­фор­ма­цию о ребёнке и об одном из его ро­ди­те­лей. ин­фор­ма­ция пред­став­ле­на зна­че­ни­ем поля id в со­от­вет­ству­ю­щей стро­ке таб­ли­цы 1. ука­жи­те в от­ве­те иден­ти­фи­ка­ци­он­ный номер (id) тёти решко п.и. по­яс­не­ние. тётей счи­та­ет­ся сест­ра отца или ма­те­ри.​

dilnaz61 · Accepted Answer

Var N, i: integer; // N - переменная хранения количества чисел, которое введет пользователь
A: array[1..20] of integer; // массив, содержащий САМИ ЧИСЛА, которые введет пользователь
begin
write('Сколько чисел вы собираетесь ввести? ');
readln(N);
for i := 1 to N do begin
write('Введите ', i, ' число: '); // ввод чисел
readln( A[ i ] );
end;
write('Из них числа от 20 до 75, кратные 4: ');
for i := 1 to N do begin
if ( A[ i ] >= 20 ) and ( A[ i ] <= 75 ) then // проверяем в каком промежутке лежит число
if ( ( A[ i ] mod 4 ) = 0 ) then write( A[ i ], ' '); // если число меньше 75 и больше 20, тогда проверяем кратно ли оно четырем. Если да, то выводим его
end;
end.

MOGZ ответил