4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
#include <iostream>
using namespace std;
int main () {
int n;
cin >> n;
cout << n / 3600 << " ч ";
n -= (n / 3600) * 3600;
cout << n / 60 << " мин ";
n -= (n / 60) * 60;
cout << n << " сек ";
return 0;
}
Ответ на ребус - информация
Вероятность в первый раз вытащить из 10 бочонков цифру от 5 до 9 равна 5/10=1/2
После этого вероятность вытащить во второй раз цифру от 0 до 3 из оставшихся 9 бочонков равна 4/9.
Умножая вероятности (1/2*4/9=2/9)
Ответ: 2/9.
# Код на ruby 2.2.3p173
a = []
a << [1]
for i in 2..10001
f = 0
a.each{ |group|
m = 1
group.each { |c|
m *= i % c
}
f += m
if m > 0
group << i
break
end
}
a << [i] if f == 0
end
p a
p a.size