Var
sum: real;
i: integer;
begin
sum := 1000;
for i := 2017 to 2030 do
sum := 1.2 * sum;
writeln(sum);
end.
Program Nooobodyyy;
uses crt;
var
i,how:integer;
ch,appr,sum:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln(); writeln();
writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое');
sum:=0;
write('Введите количество чисел: '); readln(how);
for i:=1 to how do
begin
write('Введите ',i,'-e число: '); read(ch);
sum:=sum+ch;
end;
appr:=sum/how;
writeln('Cреднее арифметическое равно ',appr:8:2);
end.
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Print(Range(1,25).Sum)
end.
<u><em>Результат:</em></u>
325
Пуск..........................
Нина - 23 апреля (если дети одногодки то тут какая-то ошибка, так как на Нину остаётся только 23 апреля, но она должна быть старше Коли, однако решение возможно если упущено условие что один из детей старше на год)
Маша - 21 марта
Коля - 23 марта
Таня - 19 мая
Петя - 4 мая