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