пока число х не станет большим 100 прибавлять к нему число 5 , посчитать сколько раз оно было прибавлено( решить через программу паскаль) через repeat решить
Answers & Comments
vladmor
Var x,n: integer; begin readln(x); repeat x:=x+5; n:=n+1; until x >100; writeln(n); end.
Answers & Comments
begin
readln(x);
repeat
x:=x+5; n:=n+1;
until x >100;
writeln(n);
end.