Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
С таблицей давай сам(а). А с км все просто. Умножь км на кол-во зверя( 5 зайцев * 8=40 км; это за декабрь; за январь 8*8=64км(зайцев) 2*15=30км(волка); 2*10=20(лиса) 64+30+20=114км он пробежал за январи. Посчитай сколько он пробежал за февраль и сложи 40+114+февраль и получишь сколько он пробежал за весь сезон. А потом сложи км всех зайцев и получишь сколько он пробежал км за зайцами за весь сезон. Тоже самое сделай с лисами и волками.
Вот и вся задача. Удачи!
CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
14-м 1-а 26-ш 1-а.
Для этого она заменила каждую букву в своём имени на её номер в алфавите
1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.