На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
А8 2
А9 4
это все что знаю)))))))
Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.
36 Кбайт
1)24/80=0.3
2)0.3*120=36
Ответ:36 Кбайт