Не меньше 12 ведь чем меньше тем легче его отгадать)
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)
Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
СА 16=202 10. Более подробное решение во вложении.
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.