1)Передача информации
2)Отбор информации
3)Защита информации
4)Поиск информации
5)Хранение информации
6)Кодирование информации
7)Обработка информации
Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
var x, a, b, k, i, wa, wb: integer;
begin
readln(a, b);
readln(k);
for i := 1 to k do
begin
x := random(5) + 1;
writeln(x);
if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
end;
if (wa > wb) then writeln('Ann win!')
else
if (wb > wa) then writeln('Boris win!')
else
writeln('No win;)');
<span> writeln(wa, ' - ', wb);
</span>end.
107-9 = 98 человек знают как минимум один из языков.
86 + 80 - 98 = 68 человек знают оба языка
86-(98-80)=80-(98-86)=68