ОЧЕНЬ НУЖНО 1. напишіть програму, яка вивидить на екран ваше им'я 20 разів
2. Змініть її так, щоб на екран виводилося лише половина цих слів.
3. Змініть її, щоб на екран виводилося одне слово
4.Знайдіть суму перших 100 натуральних чисел
5.Знайдіть суму перших 20 парних натуральних чисел
6.Знайдіть суму перших 20 непарних натуральних чисел
7. Знайдіть добуток перших 10 натуральних чисел
8. Знайдіть добуток перших 5 парних натуральних чисел
9. Знайдіть добуток перших 5 непарних натуральних чисел
10. Змініть програму так, щоб вона працювала для будь-якаї кількості чисел.
ПРОСТО МАКСИМАЛЬНО СИЛЬНО НУЖНО
следует:
2^2 =4 (количество мальчиков с тёмными волосами)
Из Сообщение "девочка с тём волосами" - 3 бита следует:
2^3 = 8 (количество дев с тём волосами)
8 +4 =12 (количество детей с тёмными волосами)
Вероятность того, что будет выбран ученик с тёмными волосами:
p(т) =12/32=3/8
вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8
> 8 =2^3 > 3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам.
ОТВЕТ 3 бита.
type
re=Record
name:string;
res:integer;
end;
Const
n=3;
Var
ar:array[1..n] of re;
i,j,c:integer;
cs:string;
begin;
for i:=1 to n do
begin
write('Введите имя участника №',i,':');
readln(ar[i].name);
write('Введите результат участника №',i,':');
readln(ar[i].res);
end;
for i:=1 to n-1 do
for j:=i to n do
if ar[i].res>ar[j].res then
begin;
c:=ar[i].res;
ar[i].res:=ar[j].res;
ar[j].res:=c;
cs:=ar[i].name;
ar[i].name:=ar[j].name;
ar[j].name:=cs;
end;for i:=1 to n do
writeln(i,' ',ar[i].name,' ',ar[i].res);
end.
Пример ввода:
Двачевская
23
Персунов
22
Хацуне
3
Пример вывода:
1 Хацуне 3
2 Персунов 22
3 Двачевская 23