Вопрос по информатике:
На языке Pascal ABC реализовать программу, выводящую первых K нечётных чисел 1,3,5,7...K( K задаётся с клавиатуры.
НУЖНО ДО ЗАВТРА
САМОЕ ГЛАВНОЕ:
СДЕЛАТЬ ЭТУ ПРОГРАММУ С ПОМОЩЬЮ !WRITE!, И СДЕЛАТЬ ТАКЖЕ ЭТУ ПРОГРАММУ С ПОМОЩЬЮ !REPEAT!.
Вы моя последняя надежда :3
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.04.2018 20:10
- Информатика
- remove_red_eye 15125
- thumb_up 38
Ответы и объяснения 1
K,i:integer;
Begin
Write('K = ');
ReadLn(K);
i:=1;
Repeat
Write(2*i-1,' ');
i:=i+1;
Until i>K;
End.
Хотя гораздо проще было бы сделать так:
Var
K:integer;
Begin
Write('K = ');ReadLn(K);
For K:= 1 to K do
Write(2*K-1,' ');
End.
- 01.01.1970 00:00
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.