Написать программу на Паскале, используя вместо FOR - WHILE. Помогите пожалуйста!
10-11 класс
|
1. Напишите программу, которая в последовательности из 12 натуральных чисел определяет минимальное чётное число. Программа получает на вход натуральные числа. В последовательности всегда имеется чётное число. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное чётное число.
2. Напишите программу, которая в последовательности из 12 натуральных чисел определяет максимальное число, оканчивающееся на 2. Программа получает на вход натуральные числа. Введённые числа не превышают30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 2.
1)
var
a ,i,min: integer;
begin
min := 30000;
i := 0;
while i <> 12 do
begin
readln(a);
if (a<min) and (a mod 2 = 0) then
min := a;
i := i +1;
end;
writeln (min);
end.
2)
var
a ,i,max: integer;
begin
max := 0; i := 0;
while i <> 12 do
begin
readln(a);
if (a>max) and (a mod 10 = 2) then
max := a;
i := i +1;
end;
writeln (max);
end.
Массивы также не использовать
Другие вопросы из категории
нужна программа на паскале. помогите пожалуйста)
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
Условие: Найти и вывести максимальный элемент кратный N.
N вводится с клавиатуры.