//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Если нужна программа на Паскале, то будет вот так:
program sr_ar;
var a, b, c: integer;
degin
write('a='); readln(a);
write('b='); readln(b);
c:=(a+b)/2;
if c mod 2 = 0 then write('c=',c)
end.
Единственная проблема - некорректное условие, т.к. среднее арифметическое может быть не целым числом. а операция mod применима только к целым числам.
И вообще, считается, что раз есть действие деление, то результат - число не целое, а вещественное.
Ответ:ОЗУ
Объяснение:
Основное запоминающее устройство/оперативная память
Для быстрого использования вне компьютера.