Войти Регистрация Спроси ai-bota

На день рождения к алле пугачевой пришли гости. первый гость подарил ей 5 роз, а каждый последующий дарил на 5роз больше. сколько певице подарили цветов, если последний гость подарил ей 100 роз? к этой нужна программа на паскале, решите)

Ответ:

IcecreamXD

26.06.2020 17:13

Program g;
var
a,q:integer;
begin
a:=0;
q:=0;
while a меньше 100 do
begin
a:=a+5;
q:=a+q;
end;
write(q);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Дейлионна

04.10.2022 18:40

Решить , ( python) 1) вывести на экран вершину,из которой исходит наибольшее количество ребер 2) вывести на экран вершины с нечетной степенью...

Саня130905

04.10.2022 18:40

Скорость передачи данных по некоторому каналу связи равна 1024000 бит/с. передача данных через это соединение заняла 5 секунд. определите информационный объём файла...

timurev

04.10.2022 18:40

1) год своего рождения ( например, 2003) перевести в 2,8,16 системы счисления. 2) числа 100011; 345; ав1 перевести в десятичную систему счисления. 3) вычислить...

twistella

09.03.2022 05:03

Можете сказать ответы учительница сказала ответить на эти вопросы в книге а у меня нет времени 1. Текстовый редактор – это: программа для создания и правки текста;...

sedoidenis2000

10.11.2022 10:15

Python есть программа, которая определяет четное число X. Выявить ошибки в коде X = ввод (‘Введите любое число:‘) если X% 2 == 0: print (X, «Четное число») print...

Katia15225

05.11.2020 05:41

Кто знаком с ev3 small basic ! при запуске программы из ev3explorer вылезает вот такая ошибка undefined function or property: file.readline at: 5: 22 ps: у меня...

lena1700

05.11.2020 05:41

Составить алгоритм по следующему условию: по результатам летних олимпийских игр спортсменам общественность приготовила хорошие подарки (48 необходимо их рассортировать....

86669

29.10.2021 08:49

Даны 2 целых числа вычислить среднее арифметическое их модулей и среднее их модулей...

ninakamenskix2000

29.10.2021 08:49

Нужна . найти ошибки - паскаль. условие: дан одномерный массив, состоящий из вещественных элементов. найти произведение элементов массива, расположенных между максимальным...

irynasherem02

29.10.2021 08:49

Программа в pascal abc вводится последовательность натуральных чисел. признак конца ввода – число 0. определить количество чисел кратных 2 и 3 и сумму всех введенных...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку