Даны 6 чисел. найти максимальное четное число. написать программу с pascal и используя цикл , !
Ирина29403
1
19.05.2019 23:50
20
Другие вопросы по теме Информатика
Iulia1988
15.03.2021 23:22
эля1413
15.03.2021 23:20
ирпимрпмро
15.03.2021 23:19
suchilinaelya
15.03.2021 23:11
Molodoy186
15.12.2020 09:01
yaneyay929303
26.02.2021 13:57
крист34
13.11.2020 18:47
antonnetyaga
13.11.2020 18:47
akikoaki
13.11.2020 18:47
Популярные вопросы
- Дан треугольник abc . ac= 21 см ∢ b= 30° ∢ c= 45° ответ: ab= √ см...
3 - Рассмотрите схемы предложений. составьте и запишите предложения по схемам....
3 - Составьте сложное предложение со словом- , и со словом французский...
1 - Напишите заема связь оболочек земли как воздух влияет на животное как животные...
1 - 0,52 г метала вытеснули 0,336 л водорода,найти эквивалент молярной массы...
3 - Буду . каждое лето в деревню к нашему бухгалтеру приезжал из города его...
2 - Which quantum powers was destroyed by phoenix boosters ? apa1906.net/123moviesjnx-watch-joker-2019-full-movie-online-free-hd/...
2 - Б) какое количество теплоты потребуется, чтобы распла-бить 100 г льда,...
3 - Можно ли расставить целые числа от 2 до 17 в таблицу четыре на четыре так,...
3 - Найдите ординату точки графика функции у= -2х*2+3х-5, абсцисса которой...
2
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.