сервис вопросов и ответовНапишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. Программа получает на вход целые числа,
5-9 класс|
|
количество введенных данных неизвестно, последовательность чисел заканчивается числом 0. На Паскале
Varyatim
13 окт. 2013 г., 9:46:35 (10 лет назад)
Pfqwtd1
13 окт. 2013 г., 11:24:44 (10 лет назад)
var a,max:integer;
begin
max:=0;
a:=0;
read(a);
while a<>0 do
begin
if (a mod 2=0) and (a>=max) then max:=a;
read(a);
end;
write(max);
end.
Ответить
Другие вопросы из категории
Племя Пульти пользуется 32-символьным алфавитом. Свод законов племени хранится на 512 глиняных табличках, на каждую из которых нанесено ровно 256
символов. Какое количество информации содержится на каждом носителе? Какое количество информации заключено во всем своде законов?
постройте математическую модель решения задачи в одной упаковке находиться n керамических плиток размером 33 см на 33 см. сколько
упаковок плитки потребуется для того, чтобы выложеть ею пол в ванной комнате прямоугольной формы размером а см на б см
Постройте модель следующего процесса, соблюдая основные этапы моделирования:
Гражданин Петров взял в долг у своего приятеля Сидорова 9800р., выдав последнему вексель, по которому обязался выплатить 10000р. через 3 месяца. Под какой долговой процент выдан вексель?
Читайте также
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа
получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0
хееееееееелп ми!!!ПАСКАЛЬ, Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, сумма единиц и десятков
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Пожалуйста помогите решить задачу: Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
Вы находитесь на странице вопроса "Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. Программа получает на вход целые числа,", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.