За даними, що містяться в електронній таблиці Спортсмени (завдання 11),
створіть програму для визначення кількості країн, де частка юнаків і
дівчат, які займаються спортом, приблизно однакова, тобто різниця не
більше двох відсотків. Вхідні дані — числове значення (у відсотках)
кількості юнаків і дівчат-спортсменів. Вихідні дані — текстове
повідомлення: «Дівчата та юнаки однаково поважають спорт у », значення
шуканої кількості країн, текстове повідомлення: «країнах.».
решение: Program sportsmeny; var a,b,c,i,s:integer; begin s:=0; for i:=1 to 7 do begin writeln('Введите процент парней и девушек спортсменов в стране'); readln(a,b); c:=abs(a-b); {все решения у нас на сайте http://program-gen.at.ua} if c<=2 then s:=s+1; end; writeln('Парни и девушки одинаково уважают спорт в ',s,' странах'); end.
