Андрей - Киев
Виктор - Тамбов
Николай - Ростов
Миша - Саратов
Write (ndivm +1)
Если не поймете - прокомментирую
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.