Pascal
program basket;
uses crt;
var
fam, kom : array of string;
rost : array of double;
N,i:integer;
BEGIN
Clrscr;
writeln('Введите количество учеников');
readln(N);
setlength(fam, n);
setlength(rost, n);
writeln('Введите фамилию и рост ученика');
for i:=1 to N do begin
write('fam[',i,']= ');
read(fam[i-1]);
write('rost[',i,']= ');
readln(rost[i-1]);
end;
for i:=1 to N do
if rost[i-1]>=170 then begin
setlength(kom, length(kom)+1);
kom[length(kom)-1]:=fam[i-1];
end;
if length(kom)=0 then
writeln('кандидатов нет')
else
writeln('Список претендентов в сборную школы');
Writeln;
for i:=1 to length(kom) do
writeln(kom[i-1]);
readln
end.
доделал. Pascal
Объяснение:
program basket;
uses crt;
var N,i,k:integer;
rost: array of integer;
fam, kom: array of string;
BEGIN
Clrscr;
writeln('Введите количество учеников');
readln(N);
setlength(fam, N);
setlength(rost, N);
setlength(kom, N);
writeln('Введите фамилии и рост учеников:');
for i:=0 to N-1 do
begin
write('fam[',i,']= ');
read(fam[i]);
write('rost[',i,']= ');
readln(rost[i]);
end;
k:=0;
for i:=0 to N-1 do
if rost[i]>=170 then begin
kom[k]:=fam[i];
k:=k+1;
end;
if k=0 then
writeln('кандидатов нет')
else
writeln('Список претендентов в сборную школы:');
for i:=0 to k-1 do
writeln(kom[i]);
readln;
end.
0 1 1
1 0 0
Данное выражение ложно, когда А-ложно и истинно, когда А истинно.
2) A B B⇒A или В
0 0 1
0 1 1
1 0 1
1 1 1 Всегда истинно ( тождественно истинно)
3) F - данное выражение
A B C A⇒(B⇒C) (A⇒B) ⇒(A⇒C) F
0 0 0 1 1 1
0 0 1 1 1 1
0 1 0 1 1 1
0 1 1 1 1 1
1 0 0 1 0 0
данное выражение не тождественно истинно
8) P*¬Q + Q*R + ¬ P*¬Q = ¬Q*(P +¬P) + Q*R = ¬Q +Q*R
7) X Y Z X*(Y+Z) XY + XZ
0 0 0 0 0
0 0 1 0 0
0 1 0 0 0
0 1 1 0 0
1 0 0 0 0
1 0 0 0 0
1 0 1 1 1
1 1 0 1 1
1 1 1 1 1 Равенство док-но
A B ¬(A +B) ¬A *¬B
0 0 1 1
0 1 0 0
1 0 0 0
1 1 0 0 Равенство док-но