program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
Друган, хеллоу. Мне кароче комп такой купили, на нём в доту можно задротить овер много времени. Там кароч видеокарта, ща буду майнить биткоин, а потом в ксшчку здоровить, кароч от нвидеа. Процессор самый new от интел, чуть ли не квантовый. Вообще класс. Оперативка на 100 гигабайт, вообще, можно хоть 200 приложух открывать. Кароч, там ещё нифига не лагает, супеер! Кароч, го в доту.
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит
Var a, b, h, k, m, s, p, alpha:real;
begin
read(a, b, alpha);
k:=(a-b)/2;
h:=tan(alpha)*k;
m:=Sqrt(sqr(k)+sqr(h));
p:=a+b+2*m;
s:=(a+b)*h/2;
writeln('Высота равна: ', h);
writeln('Боковые стороны равны: ', m);
writeln('Периметр равен: ', p);
writeln('Площадь равна: ', s)
end.
