*Рисунок на фото
ДАНО:
Футбол = a+c = 14000
Хоккей = b+c = 16000
Футбол ИЛИ Хоккей = a+b+c = 20000
НАЙТИ:
Футбол И Хоккей = c = ?
РЕШЕНИЕ:
a+b+c+c = 14000+16000 = 30000 =>
a+b+c = 30000-c
и
a+b+c = 20000
=>
30000-c = 20000
c=10000
Ответ: <span>по запросу ФУТБОЛ&ХОККЕЙ будет найдено 10000 тысяч страниц
</span>
Во free pascal?
Если хоче порисовать то скачай Basic
300 грамм -- 100%
х грамм -- 3%
x=9 грамм - 1 гном
50%(половина) = 150 грамм
150/9=16,7≈17 человек сьедает половину яблока
300-(17*9)=147 грамм вес оставшегося яблока
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена