Все лекарства неприятны на вкус. 2.X2=0 3.Многие растения обладают целебными свойствами. 4.Некоторые люди не едят шоколад. 5.Мой кот – серый. 6.Все попугаи – говорящие. 7.Существуют птицы, не умеющие летать.
Сначала массив Dat заполняется числами 2, 8, 6, ..., 7. Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются). Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.
Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].
begin var a:=ReadReal('Введите зарплату в первый месяц->'); var z:=0.00; for var i:=1 to 12 do begin Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.'); z+=a; a:=a+a*0.1; end; Writeln('Зарплата за год: ',z:0:2,'р.'); end.
Пример: Введите зарплату в первый месяц-> 100 Доход за 1 месяц составил 100.00 р. Доход за 2 месяц составил 110.00 р. Доход за 3 месяц составил 121.00 р. Доход за 4 месяц составил 133.10 р. Доход за 5 месяц составил 146.41 р. Доход за 6 месяц составил 161.05 р. Доход за 7 месяц составил 177.16 р. Доход за 8 месяц составил 194.87 р. Доход за 9 месяц составил 214.36 р. Доход за 10 месяц составил 235.79 р. Доход за 11 месяц составил 259.37 р. Доход за 12 месяц составил 285.31 р. Зарплата за год: 2138.43 р
Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются).
Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.
Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].
ответ: 9.
// Cборка 1590 от 03.12.2017
begin
var a:=ReadReal('Введите зарплату в первый месяц->');
var z:=0.00;
for var i:=1 to 12 do
begin
Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.');
z+=a;
a:=a+a*0.1;
end;
Writeln('Зарплата за год: ',z:0:2,'р.');
end.
Пример:
Введите зарплату в первый месяц-> 100
Доход за 1 месяц составил 100.00 р.
Доход за 2 месяц составил 110.00 р.
Доход за 3 месяц составил 121.00 р.
Доход за 4 месяц составил 133.10 р.
Доход за 5 месяц составил 146.41 р.
Доход за 6 месяц составил 161.05 р.
Доход за 7 месяц составил 177.16 р.
Доход за 8 месяц составил 194.87 р.
Доход за 9 месяц составил 214.36 р.
Доход за 10 месяц составил 235.79 р.
Доход за 11 месяц составил 259.37 р.
Доход за 12 месяц составил 285.31 р.
Зарплата за год: 2138.43 р
P.S Сделал как понял.