var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Спортсмены петр, илья, сергей и олег приехали на спортивные соревнования. каждый занимается одним из следующих видов спорта: борьбой, плаванием, теннисом, фехтованием. омск, хабаровск, москва, самара – города, которые юноши представляют. соревнования по каждому виду спорта пройдут в разные дни: вторник, среду, четверг, субботу. определите, кто из спортсменов в каком виде спорта и в какой день недели выступает, какие города они представляют, если известно: * петр и сергей не занимаются теннисом. * илья будет соревноваться в будний день. он живет не в самаре * петр приехал из омска. во вторник и среду он не будет соревноваться. * спортсмен из москвы занимается теннисом. илья не занимается плаванием. * спортсмен из хабаровска будет выступать во вторник. * соревнования по теннису состоятся в субботу, а по фехтованию – в четверг.
Сергей - Плавание, Самара, среда
Илья - борьба,Хабаровск, четверг
Олег - Теннис,Москва,суббота