Регистрация
oksanasmolko20
07.02.2023 09:13
Информатика
Есть ответ 👍

Напишите программу на языке паскаль, которая будет вычислять наибольший общий делитель для двух целых чисел а) с repeat б) с while

274
357
Посмотреть ответы 2

Ответы на вопрос:

ladygum78
ladygum78
4,5(37 оценок)

а)

var a,b: integer;

begin

read(a,b);

repeat

if a> b then

a: =a-b

else

b: =b-a;

until (a=b);

write(a);

end.

б)

var a,b: integer;

begin

read(a,b);

while (a< > b) do

if a> b then

a: =a-b

else

b: =b-a;

write(a);

end.

Bro1221
Bro1221
4,4(27 оценок)

ответ:

точка с запятой должна стоять после команды, например - end;

у тебя же стоит end ;

Популярно: Информатика