Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a<10)and(a mod 3=0) then k:=k+1;
readln(a);
end;
writeln(k);
end.
Пример:
12
5
34
9
8
6
0
<span>2</span>
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
a = list(map(int, input.split()))
for i in range(len(a)):
a[i] = abs(a[i])
m = max(a)
a.pop(a.index(m))
n = max(a)
print(min(m, n), max(m, n))
Принцип решения в том, чтобы убрать все минусы у чисел, взять максимум, сохранить его и удалить из списка, а затем взять ещё один максимум, потом вывести числа в порядке неубывания.