а) БД «Погода», запись номер 3.
ВЛАЖНОСТЬ = 90
ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
АВТОР = "Толстой Л.Н."
ГОД = 1990
в) БД «Успеваемость», запись номер 4.
ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
Температура > 0
ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
ГОД = 1982
Полка < 5
в) БД «Факультативы», запись номер 4.
Увлечения matches "*геологи".
Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.
uses
crt;
const
max=50;
var
a:array[1..max,1..max] of integer;
i,j,n,s,k:integer;
begin
writeln('wvedite razmernost matrici');
readln(n);
writeln('wvedite matricu ',n,' x ',n);
for i:= 1 to n do
begin
for j:= 1 to n do
read(a[i,j]);
end;
s:=0;
k:=0;
for i:= 1 to n do
begin
for j:= 1 to n do
if (j mod 2<>0) and (i mod 2<>0) then
begin
s:=a[i,j]+s;
k:=k+1
end;
end;
s:=round(s/k);
writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);
readkey
end.
x, p: longint;
begin
Writeln('Вводите через пробел натуральные числа, 0 - конец ввода');
p := 1;
repeat
Read(x);
if x <> 0 then
if (x mod 5) = 0 then p := p * x
until x = 0;
Writeln('Произведение чисел, оканчивающихся цифрой 5, равно ', p)
end.
Тестовое решение:
Вводите через пробел натуральные числа, 0 - конец ввода
3 4 15 7 25 2 5 0
Произведение чисел, оканчивающихся цифрой 5, равно 1875