<em>// PascalABC.NET 3.2, сборка 1359 от 11.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
var h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var x:=real(a);
while x<=b do begin
Writeln(x,' ',x*x);
x:=x+h
end;
end.
<u>Пример</u>
Введите a,b,h: 10 20 0.5
10 100
10.5 110.25
11 121
11.5 132.25
12 144
12.5 156.25
13 169
13.5 182.25
14 196
14.5 210.25
15 225
15.5 240.25
16 256
16.5 272.25
17 289
17.5 306.25
18 324
18.5 342.25
19 361
19.5 380.25
20 400
Ответ:
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, и выводится первое число. Т.е всё работает.
Диспетчер задач і системний блок