Подскажите , почему не читается столбик "Аспирантура"? Что нужно сделать?

231

467

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

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

SakuraHarunoo

Информатика

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

потом попробуй

72737

Информатика

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

Var i, p: integer; m: array [1..4] of integer; begin writeln('введите 4 числа: '); for i : = 1 to 4 do readln (m[i]); p : = 0; writeln('четные числа кратные 3: '); for i : = 1 to 4 do if (m[i] mod 2 = 0) and (m[i] mod 3 = 0) then begin write (m[i], ' '); inc(p); end; if p = 0 then write('таковых нет'); end.