сервис вопросов и ответовНапистаь программу удаления из строки чётных или нечётных чисел в Паскале
10-11 класс|
|
Barboossa
01 дек. 2016 г., 12:24:42 (7 лет назад)
Mrmorrar
01 дек. 2016 г., 13:02:58 (7 лет назад)
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел
i, n : integer;
begin
//Если колчисетво чисел вводится, то этот код
read (n);
for i := 1 to n do
read (a[i]);
//Если же по уловию задачи задана только строка чисел, то использовать следующий
//код
while not eoln (input) do
begin
n := n + 1;
read (a[n]);
end;
//Далее для обоих вариантов.
for i := 1 to n do
if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1
end.
Ответить
Другие вопросы из категории
1. сколько кбайт содержится в сообщении размером 2 мбайта.
2. Сколько байт информации содержится в сообщении размером 16 бит.
3. Сколько бит информации содержится в сообщении размером 4 байта.
4. Сколько мбайт информации содержится в сообщении размером 3072 кбайта.
Читайте также
с клавиатуры вводят слово.Составить программу ,которая: а)определяет количество символов в нём б)проверяет,не совпадают ли первая и
последняя буквы слова
в)выводт на экран первый,второй и последний символы
г)определяет,чётно или нечётно количество символов в нём
Помогите написать в паскале!
Ввести три целых числа
x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
Сообразил только как определить чётное или нечётное число а как дальше не могу понять!
program Lab2;
var x,y,z: integer;
Begin
Writeln ('Введите число');
Readln (x);
if x mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (y);
if y mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (z);
if z mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
end.
№1.Составьте программу,выбирающую из всех вводимых в ЭВМ чисел только те, которые входят в интервал от 1 до 5.Ввод производится до тех пор пока сумма
всех введенных данных чисел не будет равна 177. №2. Определите диаметр круга, радиус, площадь, если известна длина окружности L. №3.Даны два действительных числа А, В. Найти наибольшее из них и выяснить четное оно или нет.
Вы находитесь на странице вопроса "Напистаь программу удаления из строки чётных или нечётных чисел в Паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.