Задача У клієнта квіткового магазину є 1500 грн. Йому потрібно купити букети троянд (по 3 шт) та тюльпанів (по 5 шт). Ціна за 1 шт. тюльпана становить 20 грн., троянди – 50 грн. Вивести всі можливі варіанти покупки квітів. PYTHON
CONST k=10; {k - количество чисел в массиве} VAR a:array[1..k] of integer; i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением} sr:real; {sr - среднее арифметическое} BEGIN summ:=0; n:=0; {Обнуляем счетчики} for i:=1 to k do begin a[i]:=random(50); {Заполняем массив случайными числами} write (a[i],' '); {Выводим массив} if a[i] mod 2=0 then begin summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями} n:=n+1 end end; sr:=summ/n; {Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое} END.
Поиско́вая систе́ма — это программное обеспечение, состоящее из базы данных документов, снабженной пользовательским интерфейсом, которое разработано для поиска информации во всемирной паутине. Пользуясь поисковой системой, пользователи составляют свои собственные поисковые запросы с ключевыми словами, а не используют фиксированные системой пути поиска. Веб-обозрева́тель, обозрева́тель, бра́узер или бра́узэр (от англ. Web browser; устар. бро́узер) — прикладное программное обеспечение для просмотра веб-страниц; содержания веб-документов, компьютерных файлов и их каталогов; управления веб-приложениями; а также для решения других задач. В глобальной сети браузеры используют для запроса, обработки, манипулирования и отображения содержания веб-сайтов. Многие современные браузеры также могут использоваться для обмена файлами с серверами ftp, а также для непосредственного просмотра содержания файлов многих графических форматов (gdf, jpeg, png, svg), аудио-видео форматов (mp3, mpeq), текстовых форматов (pdf, djvu) и других файлов.
VAR a:array[1..k] of integer;
i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}
sr:real; {sr - среднее арифметическое}
BEGIN
summ:=0; n:=0; {Обнуляем счетчики}
for i:=1 to k do
begin
a[i]:=random(50); {Заполняем массив случайными числами}
write (a[i],' '); {Выводим массив}
if a[i] mod 2=0 then
begin
summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}
n:=n+1
end
end;
sr:=summ/n; {Находим среднее арифметическое}
writeln;
writeln (sr:0:2) {Выводим среднее арифметическое}
END.