16. Определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Принять, что шары вкладываются друг в друга без зазоров. 17. Даны натуральное число n и 10 вещественных чисел. Определить сумму этих вещественных чисел.
18. Известны оценки по информатике каждого из 25 учеников класса. Определить среднюю оценку
19. Гражданин 1 марта открыл счет в банке, вложив 1000 тенге. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить за какой месяц величина ежемесячного увеличения вклада превысит 30 тенге.
20. Дано натуральное число. Посчитайте количество его цифр, кратных Z (значение Z вводится с клавиатуры; Z = 2, 3, 4).
Const V: String = '01';
Function DecToN(A: Longint; D: Byte) : String;
Begin If A > D - 1
then DecToN := DecToN(A div D, D) + V[(A mod D) + 1]
else DecToN := V [A + 1];
end;
Function NToDec(A: String; D: Byte): Longint;
Begin
If Length(a) > 0
then NToDec := Pos(A [Length(A)], V) - 1 + D * NToDec(Copy (A, 1, Length(A) - 1), D)
else NToDec := 0;
end;
Var F: String;
Begin
Write('Входной файл Input.txt: '); Readln(F);
If NToDec(F,2)
mod 7 = 0
then Writeln('Выходной файл Output.txt: 0',DecToN(NToDec(F,2) div 7,2))
else Writeln('Выходной файл Output.txt: 0');
end.
//month
char getTime(int month)
switch (month){
case '1' : return 'winter'; break;
case '2' : return 'winter'; break;
case '12' : return 'winter'; break;
case '3' : return 'spring'; break;
case '4' : return 'spring'; break;
case '5' : return 'spring'; break;
case '6' : return 'summer'; break;
case '7' : return 'summer'; break;
case '8' : return 'summer'; break;
case '9' : return 'autumn'; break;
case '10' : return 'autumn'; break;
case '11' : return 'autumn'; break;
default : 'NO'; break;
}
printf(getTime(month));