В тербо паскале через while вывести на экран наименьшие четные числа не превышающие заданного числа. Число вводится с клавиатуры.
В тербо паскале через while вывести на экран наименьшие четные числа не превышающие заданного числа. Число вводится с клавиатуры.
Ответ(ы) на вопрос:
Видимо имеется ввиду что сумма этих чётных чисел не должна превышать R Program chisla; Uses crt; var i,r: integer ; begin clrscr; write (' Введите R:'); readln(R); writeln; i:=0; while (i<=r) do
begin
inc(i,2); if (i<=r) then write(i:3); end; readkey; end.
Не нашли ответ?
Похожие вопросы