Паскаль абц ввести несколько чисел. вывести числа от 20 до 75, кратные 4

131

325

Посмотреть ответы 2

Ответы на вопрос:

саня1361

Информатика

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

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.