Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
begin
a:=x; b:=y;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('НОД(',x,',',y,') = ',a);
end
else writeln('Ошибка ввода');
end.

Пример:
<span>x, y:
50 125
НОД(50,125) = 25</span>

0 0

3 года назад

Help! Срочно! 1)Дано число n. Вывести наименьшую цифру. 2)Дано число n. Вывести фразу:"кол-во четных,больше чем нечетных цифр "

EstrellaMoretti [55]

1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.

Пример:
n = 24815
min = 1

2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.

Пример:
n = 1234
количество четных равно количеству нечетных

0 0

4 года назад

Прочитать ещё 2 ответа

Представьте в восьмиразрядном формате прямые коды десятичных чисел 1)64 2)58 3)72 4)96

OhcumelayaFrau [13K]

1) 64 ⇒ 01000000
2) 58 ⇒ 00111010
3) 72 ⇒ 01001000
4) 96 ⇒ 01100000

0 0

4 года назад

Прочитать ещё 2 ответа

Що є основними обєктами компютерної презентації

Kirichenko

- текст
- зображення
- смартарт
- анімації
- фігури

0 0

4 года назад