3. Предположим, что верно утверждение 3 (У Вали день рождения летом, а у Наташи - весной). Тогда из утверждения 2 получаем: Маша родилась осенью, а Катя - зимой. Это не противоречит утверждению 1. Таким образом, получаем следующее распределение: Маша — родилась осенью, Катя — зима, Валя — летом, Наташа - весной.
program pole; var a, b, c, d, n, kolvo, x, y: real; begin write ('За сколько часов топчет землю Нейромонах Феофан? '); read (a); write ('За сколько часов топчет землю Балалаечник Никодим? '); read (b); write ('За сколько часов топчет землю Косолапый Мишка? '); read (c); write ('За сколько часов топчет землю 1 Добрый Молодец? '); read (d); write ('За сколько часов нужно выкопать землю? '); read (n); x:=1/a+1/b+1/c; kolvo:=(1/n-x)/(1/d); if (kolvo<0) then write ('Группа справится без молодцев.') else begin y:=kolvo; if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1; write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo)); end; end.
Проанализируем последовательно утверждения.
Таблицу прилагаю
1. Если верно первое утверждение, то остальные
— неверны. Тогда получается, что две девушки
(Маша и Наташа) не празднуют день рождения
весной (из утверждений 2 и 4), т.е. обе празднуют
его осенью, что противоречит условию задачи.
2. Предположим, что верно утверждение 2
(У Маши день рождения весной, а у Кати -
осенью). В этом случае получается противоречие
в отношении времени рождения Вали: не зимой
(утверждений 1) и не летом (утверждений 3).
А осенью и весной родились Катя и Наташа
(утверждение 2).
3. Предположим, что верно утверждение 3 (У Вали день рождения летом, а у Наташи - весной). Тогда из утверждения 2 получаем: Маша родилась осенью, а Катя - зимой. Это не противоречит утверждению 1. Таким образом, получаем следующее распределение: Маша — родилась осенью, Катя — зима, Валя — летом, Наташа - весной.
Объяснение:
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.