Написать программы в Pascal'е с использованием операторов варианта (циклов): 1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма есть четное число? 2. Известны стоимости каждого из восьми предметов в двух наборах. Какой из наборов прдметов более дешевый?

Предыдущий
вопрос Следующий
вопрос

Программа для первой задачи:

program SumIsEven;
var
a1, a2, a3, a4, a5, a6, a7, a8, a9: integer;
sum: integer;
begin
writeln('Enter 9 integers:');
readln(a1, a2, a3, a4, a5, a6, a7, a8, a9);
sum := a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9;
if sum mod 2 = 0 then
writeln('The sum is even.')
else
writeln('The sum is odd.');
end.

Программа для второй задачи:

program CheaperSet;
var
item1, item2, item3, item4, item5, item6, item7, item8: integer;
set1, set2: integer;
begin
writeln('Enter the costs of 8 items in set 1:');
readln(item1, item2, item3, item4, item5, item6, item7, item8);
set1 := item1 + item2 + item3 + item4 + item5 + item6 + item7 + item8;
writeln('Enter the costs of 8 items in set 2:');
readln(item1, item2, item3, item4, item5, item6, item7, item8);
set2 := item1 + item2 + item3 + item4 + item5 + item6 + item7 + item8;
if set1 < set2 then
writeln('Set 1 is cheaper.')
else if set2 < set1 then
writeln('Set 2 is cheaper.')
else
writeln('Both sets cost the same.');
end.