Найдите правильный ответ на вопрос ✅ «Как найти в Паскале нечётные числа среди введённых? . » по предмету Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Новые вопросы по информатике
Написать программу, которая выводит на экран результаты следующих действий: 27-5= 11+21= 32/2= 2+2*2= (2+2) * 2= Написать программу, которая выводит на экран результаты следующих действий: 21-4= 21+11= 43/3= 3+3*3= (3+3) * 3=
Вариант 2 1. Даны три числа. Найдите сумму второго и третьего числа. Найдите квадрат первого числа. 2. Даны длины сторон прямоугольника. Найдите площадь прямоугольника. 3. Даны длины катетов прямоугольного треугольника.
Найдите периметр треугольника.
Почему при А=1, В=1, С=1 ответ АVВ равно 1?
2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a:=3; b:=a+9; b:=a+b; b:=a-b+b/a. 3.
Паскаль с нуля [ч10]. Вывод массива, задача с четными числами
Источник: iotvet.com
Задачи по Pascal. Вывести все нечетные числа с помощью цикла.
Задачи по Pascal
Автор cyber На чтение 3 мин.
Условие задачи : Вывести на экран все нечетные числа с помощью цикла for и while, промежуток задаёт пользователь.
Сложность : легкая .
Из условия сразу ясно что нам понадобиться две переменные для промежутка, пусть A и B. Для цикла for нам понадобиться переменная i (счетчик).
uses crt; var A, B , i : integer; begin end.
Теперь попросим пользователя ввести наш промежуток :
write(‘Введите первую границу промежутка(A): ‘); readln(A); write(‘Введите вторую границу промежутка(B): ‘); readln(B);
Но пользователи бывают разные, так что можно прописать условие на случай если пользователь введет A больше чем B :
if (A > B) then begin writeln(‘А должно быть меньше B’); Halt; // выходим из программы end;
Вот теперь можно работать с циклом, как определить четное число или нет вы можете почитать (тут).
Сначала сделаем для for :
В цикле мы будем брать первое число из промежутка затем проверять на четность и если оно нечетное, выводить.
for i:=A to B do begin if i mod 2 <> 0 then writeln(i); end;
Вот и всё довольно простой цикл.
Теперь для while, условие выхода у нас будет равенство промежутков, т.е. A = B
while(A <> B) do begin if (A mod 2 <> 0) then writeln(A); A := A + 1; end;
Т.е. пока A не равно мы B мы будем выполнять цикл. В самом цикле мы будем делать следующее.
Просто берем переменную A и работаем уже с ней, т.е. если текущее значение A нечетное то его выводим, и в любом случаи увеличиваем A.
Вот и вся задача :
Весь код для цикла for :
uses crt; var A, B , i : integer; begin clrscr; // очищаем экран write(‘Введите первую границу промежутка(A): ‘); readln(A); write(‘Введите вторую границу промежутка(B): ‘); readln(B); if (A > B) then begin writeln(‘А должно быть меньше B’); Halt; // выходим из программы end; for i:=A to B do begin if i mod 2 <> 0 then writeln(i); end; readln; // чтобы программа не закрывалась end.
Весь код для цикла while :
for if else чётные и нечётные числа Остаток от деления
uses crt; var A, B, i : integer; begin clrscr; // очищаем экран write(‘Введите первую границу промежутка(A): ‘); readln(A); write(‘Введите вторую границу промежутка(B): ‘); readln(B); if (A > B) then begin writeln(‘А должно быть меньше B’); Halt; // выходим из программы end; while(A <> B) do begin if (A mod 2 <> 0) then writeln(A); A := A + 1; end; readln; // чтобы программа не закрывалась end.
Источник: cyberlesson.ru
Задачи по Pascal. Вывести все нечетные числа с помощью цикла.
Условие задачи: Вывести на экран все нечетные числа с помощью цикла for и while, промежуток задаёт пользователь.
Сложность: легкая.
Из условия сразу ясно что нам понадобиться две переменные для промежутка, пусть A и B. Для цикла for нам понадобиться переменная i (счетчик).
Создадим каркас
| uses crt; var A, B , i : |
Теперь попросим пользователя ввести наш промежуток :
| write ( ‘Введите первую границу промежутка(A): ‘ ); readln(A); write ( ‘Введите вторую границу промежутка(B): ‘ ); readln(B); |
Но пользователи бывают разные, так что можно прописать условие на случай если пользователь введет A больше чем B :
| if (A > B) then begin writeln Halt; end |
Вот теперь можно работать с циклом, как определить четное число или нет вы можете почитать (тут).
Сначала сделаем для for :
В цикле мы будем брать первое число из промежутка затем проверять на четность и если оно нечетное, выводить.
| for i:=A to B do begin if writeln end |
Вот и всё довольно простой цикл.
Теперь для while, условие выхода у нас будет равенство промежутков, т.е. A = B
| while (A <> B) do begin if A := A + end |
Т.е. пока A не равно мы B мы будем выполнять цикл. В самом цикле мы будем делать следующее.
Просто берем переменную A и работаем уже с ней, т.е. если текущее значение A нечетное то его выводим, и в любом случаи увеличиваем A.
Вот и вся задача :
Весь код для цикла for
| uses crt; var A, B , i : begin writeln Halt; end begin if writeln end |
Весь код для цикла while
| uses crt; var A, B, i : begin writeln Halt; end begin if A := A + end |
Предыдущая
Программирование Задачи по Pascal. Количество трехзначных чисел, сумма цифр дел. на k
Программирование Задачи по Pascal. Вычислить расстояние между двумя точками с данными координатами X1, Y1, X2, Y2.
Источник: sprint-olympic.ru