Var
a,b:integer;
begin
Write('Введите два натуральных числа '); Readln(a,b);
while a<>b do
if a > b then a := a - b
else b := b - a;
Writeln('НОД=',a)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа 28 16
НОД=4
<span>byte = float(input("Введите число в байтах: "))
if byte>0:
b = byte * pow(10,-12)
k = byte * pow(10,-3)
mb = byte * pow(10,-6)
gig = byte * pow(10,-9)
print(str(byte) + " байт = " + str(k) + " Килобайт")
print(str(byte) + " байт = " + str(mb) + " Мегабайт")
print(str(byte) + " байт = " + str(gig) + " Гигабайт")
print(str(byte) + " байт = " + str(b) + " Терабайт")
else:
print(False)
</span>
var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF a = b AND a = c AND b = c THEN
PRINT "РАВНЫ"
ELSE
PRINT "НЕ РАВНЫ"
END IF
<span>END</span>
Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.
