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.

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

0 0

3 года назад

Дано вещественное число А,содержащее два знака до запятой и 2 после. Получить новое число,поменяв в числе А целую и дробную част

bravo68 [7]

Программа на паскале
var a,b:real;
begin
write('a = ');
readln(a);
b:=frac(a)*100+trunc(a)/100;
writeln('b = ',b);
end.

Пример:
a = 12.34
b = 34.12

0 0

4 года назад

1)Составить программу нахождения наибольшего общего делителя НОД. Составить блок-схему2)Составить программу решения примера1+2+4

Павел322

Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
end.

program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
end.

0 0

2 года назад

Росмотри рисунок составь рассказ в виде текста

Сандритка

Мальчик, увидев на светофоре знак того, что можно перейти дорогу, смело пошел по зебре, расположенной на дороге, а водитель, увидев , что ехать нельзя, остановился и ждет, пока пешеходы перейдут дорогу.

0 0

4 года назад