Вопрос:

Даны два натуральных числа x и y, не превосходящие 400. Из заданных строк составьте недостающий фрагмент программы для нахождения наибольшего общего делителя x и y.
Var x,y: integer;
begin
read(x,y);
…
write(x);
end.

1) DBHAG; 2) DCGAH; 3) DEGAH; 4) DEHAG.

второе

Информатика

admin 19.05.2023 34

Ответ учителя:

Var x,y: integer;
begin
read(x,y);
while x<>y do
if x>y then x:=x-y else y:=y-x;
write(x);
end.

DCGAH
DBHAG - тоже верно

Другие вопросы

Создать вопрос

# 2 не получается сделать программу в ABCпаскаль, в чем ошибка? uses crt; var a: array [1..20] of index; begin for i:= 1 to 15 do; readln(a[i]); for i:= 1 to 15 do; writeln(a[i]); for i:= 1 to 15 do; if a[i] mod 2 = 0 then S:=S+1; S:= S+a[i]; writeln(S); end.

# 3 Program Primer, var a, s: integer, begin S:= 0; readln(a); while a<>0 do begin if (a mod 4 = 0) and (a mod 10 = 4) then S:= S +a; readln(a); end; writeln(s); end. Какое число получится, если ввести ряд чисел 80, 12, 164, 104, 11,0? (помогите пожалуйста)

# 4 информатика, язык программирования питон. напишите программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль Вам рановато”

# 5 Срочно, решите, пожалуйста!!! Иван составляет пяти-буквенные слова из букв:и, в, а, н. Буквы в слове могут повторяться, использовать все буквы не обязательно, но букву «и» нужно Использовать хотя бы один раз. Сколько различных слов может составить Иван?

Вопрос:

Ответ учителя:

Похожие вопросы: