Написать программы в Pascal'е с использованием операторов варианта (циклов):
1. Даны целые числа а1, а2, ..., а9. Верно ли, что их сумма есть четное число?
2. Известны стоимости каждого из восьми предметов в двух наборах. Какой из наборов прдметов более дешевый?
More Questions From This User See All
Answers & Comments
1)
Program chetnost;
Uses Crt
const arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }
{туда напишешь любые целые}
{которые препод укажет}
var i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to 9 do sum:=sum+arr[i];
if (sum mod 2) =0 then writeln('Их сумма чётное число ')
else writeln('Их сумма нечётное число ')
end.
2) Program Nabor;
Uses Crt
const n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }
const n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }
{туда напишешь любые целые}
{которые препод укажет}
var sum1,sum2,i: integer;
begin
clrscr;
sum1:=0; sum2:=0;
for i:=1 to 8 do
begin
sum1:=sum1+n1[i];
sum2:=sum2+n2[i]
end;
if (sum1=sum2) writeln('Стоимость наборов одинакова ');
if (sum1<sum2) then writeln('Первый набор дешевле ')
else writeln(' Второй набор дешевле ')
end.