Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000
Гость
Ответ(ы) на вопрос:
Гость //Pascal ABC.NET 3.1 сборка 1219 Var a:integer; begin readln(a); while (a<=1000) do a:=a+10; writeln(a); end. Пример ввода: 567 Пример вывода: 1007
Не нашли ответ?
Похожие вопросы