Помогите, информатики! решите задачу(((
Помогите, информатики! решите задачу(((напечатать столбиком, в одной задаче! 1. все целые цисла от 20 до 35. 2. квадраты всех целыхцисел от 10 до в. 3. все целые числа от а до в, значение вводиться с клавиатуры.
Гость
Ответ(ы) на вопрос:
ГостьНа Turbo Pascal это выглядит примерно вот так. Все работает. 1) Var i: integer; begin for I:=20 to 35 do WriteLn(i); ReadLn; end. 2) Var i, b: integer; begin ReadLn(b); for I:=10 to b do WriteLn(sqr(i)); ReadLn; end. 3) Var i, a, b: integer; begin ReadLn(a, b); for I:=a to b do WriteLn(i); ReadLn; end. В одной задаче это будет вот так: Var i, a, b: integer; begin ReadLn(a, b); for I:=20 to 35 do WriteLn(i); for I:=10 to b do WriteLn(sqr(i)); for I:=a to b do WriteLn(i); ReadLn; End. Можно еще все написать в одном цикле.
Не нашли ответ?
Похожие вопросы