program arithmeticmean;
var
i, quantity: integer;
amount: longint;
begin
quantity := 0;
amount := 0;
i := 1;
while i <> 0 do
begin
read(i);
if (i > 99) and (i < 1000) then
begin
amount := amount + i;
quantity := quantity + 1;
end
end;
if (quantity <> 0) then
write(amount / quantity)
else
write('NO');
end.
Объяснение:
program arithmeticmean; // Название программы
var
i, quantity: integer; // Создание целочисленных переменных
i - вводимые с клавиатуры числа;quantity - количество трехзначных чисел.amount: longint; // Создание целочисленной переменной
amount - сумма трехзначных чиселbegin // Начало программы
quantity := 0; // Количество трехзначных чисел = 0
amount := 0; // Сумма трехзначных чисел = 0
i := 1; // Переменная i = 1 (делается это для того, чтобы зайти в цикл (выходит какого-то рода обман))
while i <> 0 do // Пока переменная i ≠ 0
begin // Начало цикла
read(i); // Считываем с клавиатуры значение переменной i
if (i > 99) and (i < 1000) then // Если (*значение переменной i* > 99) И (*значение переменной i* < 1000), тогда - проверка, является ли число трехзначным
begin // Начало блока
amount := amount + i; // К переменной, хранящей сумму, прибавляется значение переменной i
quantity := quantity + 1; // К переменной, хранящей количество, прибавляется значение 1
end // Конец блока
end; // Конец цикла
if (quantity <> 0) then // Если количество трехзначных чисел ≠ 0, тогда - проверка, есть ли трехзначные числа в последовательности
write(amount / quantity) // Выводим среднее арифметическое - сумма ÷ количество
else // Иначе
write('NO'); // Выводим NO
end. // Конец программы
//Pascal ABC.NET 3.1 сборка 1219
uses
system;
Var
d1,d2:datetime;
a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.
Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366