Помогите, пожалуйста, составить программу. Срочно!
Приложения:
![](https://st.uroker.com/files/6ff/6ff51f344f275b932832e28d24849560.jpg)
restIess:
на каком языке?
Ответы
Ответ дал:
1
var k, x : integer;
begin
k := 0;
repeat
readln(x);
if x > 1 then
k := k + 1;
until x = 0;
writeln(k);
end.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад