var
n, n1, n2, n3: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if not ((n >= 100) and (n <= 999)) then begin
Writeln ('Число не является трехзначным!');
Exit;
end;
n1 := n div 100;
n2 := (n div 10) mod 10;
n3 := n mod 10;
Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));
end;
Вещественный тип данных обозначается: real.
Сколько разных слов из K букв можно составить из алфавита мощностью N?
<span>Количество размещений с повторениями
A = N^K
Дано
A >= 9
K = 3
N - ?
</span><span>A = N^K
N = A^(1/K) = 9</span><span>^(1/3) = 2.0800838230519 ~= 3 так как нужно округлить до целых
Ответ 3
</span>
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k*k<=n do
begin
writeln(k*k);
k:=k+1;
end;
<span>end.</span>
Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>