Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
(о - оруженосец, р - рыцарь) 1о отвозит 1р на берег, возвращается и уезжает с 2о, который потом возвращается и привозит 2р, едет за 3о, высаживают 2о и 3о едет за 3р
а) для логического умножения: А & В = Ᾱ v В(инверсия):
А В А & В (А & В)(инверсия) Ᾱ В(инверсия) Ᾱ v В(инверсия)
0 0 0 1 1 1 1
0 1 0 1 1 0 1
1 0 0 1 0 1 1
1 1 1 0 0 0 0
б) для логического сложения: A v В = Ᾱ & В(инверсия):
А В A v В (A v В)(инверсия) Ᾱ В(инверсия) Ᾱ & В(инверсия)
0 0 0 1 1 1 1
0 1 1 0 1 0 0
1 0 1 0 0 1 0
1 1 1 0 0 0 0
Var
i:integer;
a,c:real;
begin
c:=0;
Writeln('Введите четыре произвольных числа');
for i:=1 to 4 do
begin
Read(a); c:=c+Int(a)
end;
c:=c/4;
Writeln('Среднее арифметическое равно ',c)
end.
<em><u>Тестовое решение:</u></em>
Введите четыре произвольных числа
4.7 5.03 4.12 5
Среднее арифметическое равно 4.5
Цветы:Одуванчики, орхидеи, розы, ромашки, тюльпаны, кактусы. Насекомые:жуки, пчелы, осы, гусеницы, червяк
