Глеб любитель стрелять из рогатки.7 раз попадал в полицию. N-число попаданий в полицию.Определить результат N=4,6,7-полиция возмещала ущерб(разбитое стекло)
N=2,5,4-ущерб возмещал папа Глеба
N=1,3-стекло не разбилось

1

Ответы и объяснения

2013-11-24T22:51:34+04:00
Var n: integer;
begin
write('Введите N <= 7 - число попаданий в полицию: ');
readln(n);
case n of
6,7:    writeln('Полиция возмещала ущерб(разбитое стекло)');
2,4,5: writeln('Ущерб возмещал папа Глеба');
1,3:    writeln('Стекло не разбилось');
end;
end. 
В условии ошибка. N = 4 используется в двух событиях. Убрал на всякий случай одну 4-ку (из первого события), при желании можно сменить её на второе событие.
спасибо большое)