Предмет: Информатика,
автор: NessieCullenBlack
Помогите пожалуйста!! ( ПИСЬМЕННО) Программа Паскаль: вывести на экран все нечетные числа от 1до n, через for I.
TaTaPmember:
неверные?
Ответы
Автор ответа:
1
var n, i: integer;
begin
writeln('Введите число: ');
read(n);
if n>0 then
begin
for i:=1 to n do
if i mod 2 <> 0 then write(i, ' ');
end;
end.
begin
writeln('Введите число: ');
read(n);
if n>0 then
begin
for i:=1 to n do
if i mod 2 <> 0 then write(i, ' ');
end;
end.
Интересные вопросы
Предмет: Окружающий мир,
автор: irina198902
Предмет: Қазақ тiлi,
автор: hiro303
Предмет: Английский язык,
автор: etogucci
Предмет: Биология,
автор: chivikovm
Предмет: Математика,
автор: banka5