Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Помогите составить программу на языке паскаль Составить программу разветвляющей структуры Написать прогрумму, которая проверяет, является ли введенное с клавиатуры число четным и положительным
Источник: urokam.net
Pascal.Дано двузначное число N.Является ли сумма цифр этого числа четной(нечетной).
Решу Паскаль
if f then println(‘Да, четные цифры есть в числе’) else println(‘Нет, четных цифр нет в числе’);
За значение флага f приняли ЛОЖЬ — четных цифр нет в числе. Выделили цифры числа оператором цикла while. Если цифра принадлежит множеству четных цифр, то значение флага изменяем на ИСТИНУ.
За циклом осуществляется проверка флага. Если флаг принял значение ИСТИНА, то в числе есть четные цифры, в противном случае нет.
Комментарии:
- логическое значение ЛОЖЬ — false
- логическое значение ИСТИНА — true
- для хранения логических значений используются переменные типа boolean
- оператор вхождения элемента в множество — in
Программа решения задачи на языке Паскаль
print(‘Введите натуральное число N:’);
if d in [0,2,4,6,8] then f:=true;
if f then println(‘Да, четные цифры есть в числе’) else println(‘Нет, четных цифр нет в числе’);
Результат запуска программы
2 способ
Используем модуль School, функцию digits и методы динамических массивов.
С помощью функции digits получим список цифр числа, преобразуем список к массиву, найдем в полученном массиве четные цифры, преобразуем полученную последовательность в массив и вычислим его длину. Если длина полученного массива четных цифр не равна 0, то ответ Да, иначе Нет.
Программа решения задачи на языке Паскаль
Программа на языке Pascal ABC.net, определяющая истинность высказывания Число n является четным
print(‘Введите натуральное число N:’);
p:=digits(N).ToArray.Where(k -> k in [0,2,4,6,8]).ToArray.Length;
if p<>0 then println(‘Да, четные цифры есть в числе’) else println(‘Нет, четных цифр нет в числе’);
Комментарии:
- Условие k in [0,2,4,6,8] можно изменить на обычную проверку: остаток от деления на 2 равен 0? k mod 2 = 0
- Данная программа является линейной и не использует цикл для выделения цифр числа.
3 способ
Преобразуем число в строку. Выполним проверку вхождения символов ‘0’, ‘2’, ‘4’, ‘6’, ‘8’ в полученную строку.
Программа решения задачи на языке Python
n = str(n) #функция str преобразует числовое значение в строковое
f = (‘0’ in n) or (‘2’ in n) or (‘4’ in n) or (‘6’ in n) or (‘8’ in n)
Источник: reshupascal.blogspot.com
Паскаль программа является ли число четным
Нахождение четных элементов массива
Итак формулировка задачи такова «найти все четные элементы массива, вывести на экран, и подсчитать их количество».
Для начала определим, что такое четное число вообще? правильно, четными числами называются числа, которые делятся на 2 без остатка (иногда еще говорят кратны 2).
Теперь определимся как это реализовать. В паскале есть такой замечательный оператор mod, который нам как раз и необходим. Сей оператор отвечает за деление с остатком, а если быть точнее, применив данный оператор, вы получаете остаток от деления. Например 11 разделить на 2. Использовав mod мы получим в ответе число 1.
Теперь как это все записать в паскале. Пусть переменная х — это остаток
Вернемся к нашей задаче, где нас интересует нахождение четных элементов массива. Для ее решения нужно подойти к составлению кода логически .
Каков остаток при делении четного числа на 2? Верно, остаток всегда равен нулю. (Подробнее о четности вы можете прочесть в статье оператор div и оператор mod) То есть нам просто нужно использовать цикл с условием вида
Ну а теперь код всей задачи (как в помните нам еще было необходимо подсчитать количество четных чисел и вывести их всех на экран)
var i,x,y:integer;s:array [1..10] of integer;
begin
for i:=1 to 10 do
read(s[i]);
for i:=1 to 10 do
if s[i] mod 2=0 then begin
writeln (s[i]);
y:=y+1;
end;
writeln;
writeln(‘количество четных чисел = ‘,y)
end.