//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Поля в БД могут быть такими:
Таблица 1 Известные исполнители
1) Исполнитель
2) Страна проживания
3) Дата рождения
4) Музыкальный жанр
5) Ссылка сайт
Если БД должна иметь связанные таблицы, то можно добавить Таблицу 2 Альбомы:
1) Исполнитель
2) Название альбома
3) Дата выпуска
4) Треки
Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' баллов');
end.
Пример:
<span>Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал 18 баллов</span>
// Код на паскале
var
a, b: array [1 .. 8] of longint;
i, ans1, ans2: byte;
function check(var x: longint): boolean; // функция проверки числа на четность
begin
if x mod 2 = 0
then check := true
else
check := false;
end;
begin
ans1 := 0;
ans2 := 0;
for i := 1 to 8 do
begin
read(a[i]); //читаем число а_і
if check(a[i]) then //если четное, то ...
inc(ans1); //увеличиваем ответ_1 на 1
end;
for i := 1 to 8 do
begin
read(b[i]); //читаем число b_i
if not check(b[i]) then // если нечетное, то ...
inc(ans2); // увеличиваем ответ_2 на 1
end;
writeln('Количество четных чисел в первой последовательности = ', ans1);
writeln('Количество нечетных чисел во второй последовательности = ', ans2);
end.
Между Вес и Дым можно прямую поставить, но я сделал круговую, чтобы не путаться