Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000
program prTreug;
var a,b,y, P: real;
begin
writeln ('введите катеты прямоугольного треугольника');
read (a,b);
if (a<=0) or (b<=0) then
writeln ('такого треугольника нет')
else
begin
y:=sqrt(sqr(a)+sqr(b));
P:= a+b+y;
writeln ('гипотенуза = ',y:6:2);
writeln ('периметр = ',P:6:2);
end;
end.
Ответ:
Объяснение:
1) Рассмотрим 10байт=80бит, если 1 символ - 8 бит, то получается, что строка стала меньше на 10 знаков.
При вычеркивание одного слова мы еще удаляем 1 пробел и запятую, те на слово приходится 10-2 символа. 8 символов - крокодил.
2)
22байта=176 бит. Количество знаков 176/16= 11, значит на слово остается 9 символов. Это аллигатор
uses crt;
var i:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(99)+1;
for i:=1 to 10 do
begin
if ( (a[i] div 10) + (a[i] mod 10) ) = 5 then
write(a[i],' ');
end;
writeln;
readln;
end.
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.