Ответ:
nums = []
for i in range(int(input()):
num = int(input())
if str(num)[-1] == '4':
nums.append(num)
print(min(nums))
Т.к. A>B (A - положительное, B- отритцательное), то условие if A<B не выполняется, значит числа не поменяются. A=0.5 B==1.7
растровое
1) Пиксель (точки)
2) Применяется для обработки фотоизображений, художественной графики, реставрационных работ, работ со сканером.
3) Ухудшается
4) Окрашивается каждый пиксель
5) bmp, gif, jpg, pcx, tif
векторное
1) Контур (линии)
2) Применяется в компьютерной полиграфии, системе компьютерного проектирования, компьютерном дизайне и рекламе.
3) Не изменяется
4) Окрашивается вся фигура целиком
5) wmf, eps, dxf, cgm
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.