Искомое значение определяется как число сочетаний из 7 по 3:
C(n,m) = n!/(m!*(n-m)! = 7!/(3!*(7-3)!) = 7!/(3!*4!) = 35
1 байт 8 битов.(так для инфы)
1 буква = 1 байту
10*1=10 байтов в слове информация.
Program Z1;
Var x,y:real;
begin
Write('Введите значение x = ');
Readln(x);
if x>=1 then y:=5*x else y:=sqr(x);
Write('y=',y);
End.
Пример:
Введите значение x = 3
y=15
1-B
2-A
3-C
4-D
5-A
6-C
7-A
8-C
9-C
10-E
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>