<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function gcd(a,b:int64):int64; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
Writeln(gcd(gcd(36,54),gcd(18,15)))
end.
<u>Результат</u>
3
1. На картинке.
2. (1+2+3)/2=3
3.Если сумму чисел 5 и 10 умножить на 2, то получится 30.
Вот держи)
var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
<span>end.</span>
Ответ:
for i in range(100, 1001):
if i % 3 == 0:
print(i)
Объяснение:
Либо в списке:
numbers = []
for i in range(100, 1001):
if i % 3 == 0:
numbers.append(i)
print(numbers)