Помогите с олимпиадой по информатике) очень прошу))

0 голосов
22 просмотров

Помогите с олимпиадой по информатике) очень прошу))


image

Информатика (12 баллов) | 22 просмотров
Дан 1 ответ
0 голосов

Var A, B, C, N : integer; 
begin 
readln (a); 
readln (b); 
readln (c); 
n:=0; 
while (a+b*n
begin 
n:=n+1; 
end; 
n:=n-1; 
writeln(n); 
end.

(14 баллов)