Ответ:
nums = []
for i in range(int(input()):
num = int(input())
if str(num)[-1] == '4':
nums.append(num)
print(min(nums))
клавиатура, тк это ввод символов, а не управление указателем
Const month:array[0..11] of string [15]=
('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
var s:real; i,k:integer;
begin
s:=1000; k:=0;
while s<=1200 do
begin
s:=s*1.01;
k:=k+1;
end;
writeln('k = ',k,' - ',month[k mod 12+2]);
end.
Результат:
<span>k = 19 - октябрь</span>
Например так:
Var
A,N:integer;
Begin
WriteLn('Введите кол-во чисел');
ReadLn(N);
WriteLn('Введите сами числа');
For N:= 1 to N do
Begin
Read(A);
if A mod 2 = 0 then WriteLn(A,' чётное')
else WriteLn(A,' нечётное')
End;
End.
Пример ввода-вывода:
Введите кол-во чисел
4
Введите сами числа
1 2 3 4
1 нечётное
2 чётное
3 нечётное
4 чётное
Вообще, чётность определяется по остатку деления на два: остаток равен нулю - значит число чётное, единице - нечётное.