Решить по логике: 1.относительно трех участников соревнований антонова, борисова и волкова были высказаны предположения, что если волков будет в тройке победителей, то и антонов тоже; антонов и волков будут или не будут в призерах соревнований одновременно; антонов не будет призером или среди победителей будут борисов и волков. после соревнований оказалось, что одно из предположений ложно. кто из спортсменов был в призерах? в качестве ответа укажите первые буквы фамилий участников, например, абв — означает, что все трое спортсменов стали призерами. 2.один из пяти братьев — никита, глеб, игорь, андрей или дима — испек маме пирог. когда она спросила, кто сделал ей такой подарок, братья ответили следующее: никита: «пирог испек глеб или игорь». глеб: «это сделал не я и не дима». андрей: «нет, один из них сказал правду, а другой обманул». дима: «нет, андрей, ты не прав». мама знает, что трое из сыновей всегда говорят правду. кто же испек пирог?
Ответы
Пирог испекла игорь
const
n = 15;
var
a: array[1..15] of real;
temp: real;
i: integer;
begin
randomize;
writeln('исходный массив: ');
for i : = 1 to n do
begin
a[i] : = (random(101) - 50) / 10;
write(a[i], ' ');
end;
writeln;
temp : = a[5];
a[5] : = a[10];
a[10] : = temp;
writeln('преобразованный массив: ');
for i : = 1 to n do
write(a[i], ' ');
writeln;
end.
Program znanija; var komlekt: array[1..10] of real; begin write('введите стоимость ручек: '); readln(komlekt[1]); write('введите колл. ручек: '); readln(komlekt[2]); komlekt[3]: = komlekt[1] * komlekt[2]; write('введите стоимость тетрадей: '); readln(komlekt[4]); write('введите колл. тетрадей: '); readln(komlekt[5]); komlekt[6]: = komlekt[4] * komlekt[5]; write('введите стоимость учебников: '); readln(komlekt[7]); write('введите колл. тетрадей: '); readln(komlekt[8]); komlekt[9]: = komlekt[7] * komlekt[8]; writeln('в итоге: '); writeln('тетрадей : ', komlekt[6],'(по ',komlekt[4],'р)'); writeln('ручек : ', komlekt[3],'(по ',komlekt[1],'р)'); writeln('тетрадей : ', komlekt[9],'(по ',komlekt[7],'р)'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напечатать столбиком значения sin2,
Автор: mirdetzhuk79
Выполнить задание по фотографии .
Автор: denisdenisov63
Составить синквейн по теме компьютер
Автор: sergeymartyn56
Внешний трафик СкоростьВх=5256, Исх=4128Кбит это сколько кб/сек?
Автор: zuzman601
Как из цикла for в паскале вывести максимальное число?
Автор: ska67mto3983
C: (sqrt(x)+ sqr(a)) / 10 какого типа будет c
Автор: dumpler