С РЕШЕНИЕМ Среди моих друзей четыре мастера спорта: баскетболист, самбист, шахматист, волейболист. Их фамилии: Коренев, Долгов, Матвеев, Солопенко. Известно, что Коренев и Долгов – соседи и всегда ездят на работу в одном автобусе. Долгов старше Матвеева. Коренев всегда обыгрывает Солопенко в пинг-понг. Баскетболист на работу ходит только пешком. Волейболист живет рядом с самбистом. Шахматист и волейболист познакомились, когда шахматист, задумавшись, чуть не попал под машину и волейболист вытащил его буквальноиз-под колес. Известно еще, что волейболист старше самбиста и шахматиста. Кто из моих друзей каким видом спорта занимается?
Ответы
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найти произведения всех натуральных четных чисел от 1 до 30 кратных 7
Автор: Sergeevich-Novikov
Жазу батырмасы қандай мүмкіндік береді?
Автор: mrFuz
Определите результат выполнения программы a=8; b=16; C=9; print(a//b+c)
Автор: Fedorovich_Aleksandrovich685
Как решить проблему, появляется после загрузки биоса
Автор: NarekAlekseevich779
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.
Громоздко, но, думаю, покатит