Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.
Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
Ответ:
chislo1 = int(input("Введите число а "))
chislo2 = int(input("Введите число b "))
while chislo1 != 0 and chislo2 != 0:
if chislo1 > chislo2:
chislo1 = chislo1 % chislo2
else:
chislo2 = chislo2 % chislo1
print(chislo1 + chislo2)
Объяснение:
НОД числа:
берутся два числа. большее число = остаток от деления большего на меньшее. Затем опять большее число (может быть уже второе) = остаток от деления большего на меньшее, и так до тех пор, пока одно из них не станет равно 0. И выводится большее число. В случае если числа равны друг другу, находится остаток от деления второго числа на первое: 0, и выводится первое число. Т.е всё работает.
Дождь [Д О Ж Д`]... ИЗИТА ТАКАЯ..
Абакан,
абак - древние счеты
