Составьте программу, проверяющую, что введенное число является четным или нечетным.
5-9 класс
|
qbasic
? "Введите число"
INPUT A
A:2=B
IF B=INT(B) THEN 1 ELSE 2
1 ? "Это число четное" : GOTO 3
2 ? "Это число не четное"
3 END
Другие вопросы из категории
Какое слово этого языка переводится как "трамвай"? (Из РТ по информатике)
К свободно распространяемым программам относятся:1) Новые недоработанные версии программ2) Версии программы с ограниченным сроком действия3) Дополнения к ранее выпущенным программам, исправляющие найденные ошибки4) Драйверы к новым устройствам
Установите соответствие вируса среде его «обитания». Ответ запишите в виде: 1-а,2-б и т.д.
1) Файловые а) Файлы документов Word и Excel
2) Загрузочные б) Вложенные в почтовые сообщения файлы
3) Макровирусы в) Исполнимые файлы (программы)
г) Загрузочный сектор диска
дан массив вещественных чисел.среди них есть равные.найти его первый максимальный элемент и заменить его нулем.
найти остаток от деления на 10, то мы получим последнюю цифру числа.Запишем эту цифру в новое число.Разделим старое число нацело на 10, так мы избавимся от последней цифры в нем.Снова найдем остаток от деления на 10. Получим вторую с конца цифру исходного числа.Если мы умножим новое число на 10, то получим "дополнительный" младший разряд, куда можем записать вторую цифру исходного числа (простым сложением).Будем повторять вышеописанные действия пока исходное число не станет равным нулю.
ОБЪЯСНИТЕ КАК ЭТО СДЕЛАТЬ! ПОДРОБНО!
Первый файл имеет информационный объём 2 Кбайта, второй – 101 байт. Каков общий объём в байтах этих двух файлов?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами
Var
a,b,y:real;
begin
Read (a,b );
if b=0 then writekn ('решения нет')
else writeln (a/b);
end,