Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
В Задании 3 ответ : 132 бита, т.к в Алфавите 33 буквы, то 33*4=132 Остальные задания возможно, завтра решу, сегодня устал!
Запишем как систему уравнений
x - кошка
y - котёнок
4x+3y=15
3x+4y=13
Домножим
4x+3y=15
-3x-4y=-13
Сложим
x-y=2
x=2+y
Подставим
4(2+y)+3y=15
8+4y+3y=15
7y=7
y=1
Подставим
4x+3(1)=15
4x=12
x=3
y=1
Ответ:Кошка весит 3 кг, а котёнок весит 1 кг
1.
program nom1;
const n=8;
var a:array[1..n] of integer;
i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.
2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end.
3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
c:=c+1;
writeln('Kол-во прошедших = ',c);
end.
Запишем уравнение: 52 по основанию х равно 47 по основанию 10.
52(х)=47(10)
5*х+2=4*10+7
5х=45 ⇒ х=9
<u><em>Ответ:</em></u> Основание системы равно 9