Написать программу: ввод четного числа
5-9 класс
|
program gt;
labe 1;
var a:integer;
begin
1:
read(a);
if(a mod 2=1)then goto 1;
end.
вводится число пока она не будет чётным
Другие вопросы из категории
рекомендуемый вид экрана во время работы программы (данные, введённые пользователем, выделены полужирным шрифтом).
Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>.
Сумма элементов массива: 184
Количество нулевых элементов: 7
Среднее арифмитическое нулевых элементов: 23.86
Заранее большое спасибо.
Жесткий диск
Клавиатура
Мышь
Процессор
Оперативная память
Монитор
Принтер
Акустические колонки
Сканер
_______________________________
Ввод информации
Хранение информации
Обработка информации
Вывод информации
Читайте также
написал программу неправильно. Ниже приведён фрагмент его программы, в котором содержится пять ошибок:
k:=1;
f:=0;
while k<n do
f:=f*k;
k:=k+1
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
Пользователь вводит пять чисел. Программа выводит ответ: "Максимальное число ... ".
Написать программу в "КуМиРе"
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ