Задачи на циклы while . Напишите программу, которая получает на вход положительное число. Если введенное число четное выводятся все четные числа до этого числа, если нечетное выводятся все нечетные числа до этого числа.
More Questions From This User See All
Answers & Comments
Ответ:
var
n: integer;
i: integer;
begin
i := 0;
writeln('Введите число: ');
readln(n);
if n mod 2 = 0 then
while i < n do
begin
i := i + 1;
if i mod 2 = 0 then
write(i, ' ')
end
else
while i < n do
begin
i := i + 1;
if i mod 2 <> 0 then
Write(i, ' ')
end
end.