Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Простой вариант(выводится ошибка если цифр больше или меньше трёх!):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Даю 2 варианта, так-как незнаю,проходили ли вы функцию "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
1)
var a,b,c,d,s,p:real;
begin
cls;
writeln('введите стороны треугольника:');
read(a,b,c);
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
write('Площадь треугольника S=',s);
end.
2)
var a,b,c,d,s,v:real;
begin
cls;
write('Введите 3 ребра=');
read(a,b,c);
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
d:=(a+b+c)*2;
writeln('Прямоугольный параллелепипед:');
writeln('Обьём:',V);
writeln('Площадь:',S);
writeln('Сумма рёбер:',d);
end.
3)
var a,b,c,d,P:real;
begin
cls;
writeln('введите сторону и 2 угла ромба');
read(a,b,c);
if b>c then
P:=a*Sqrt(2+2*Cos(b))
else
d:=a*Sqrt(2+2*Cos(c));
writeln('Большая диагональ ромба D=',P);
writeln('Меньшая диагональ ромба d=',d);
end.
1) n = 16
2) m = 180
3) a = 26
4) a = 22
5) b = 1
Объяснение:
1)
v := 1 // v = 1
n := 24 // n = 24
v := n - v * 4 // 24 - 1 * 4 ⇒ v = 20
n := v * 2 - n // 20 * 2 - 24 ⇒ n = 16
n = 16
2)
k := 3 // k = 3
m := 30 // m = 30
k := m - k * 3 // 30 - 3 * 3 ⇒ k = 21
m := k * 10 - m // 21 * 10 - 30 ⇒ m = 180
m = 180
3)
a := 4 // a = 4
b := 9 // b = 9
b := 6 * b - a // 6 * 9 - 4 ⇒ b = 50
a := b / 5 * 3 - a // 50 / 5 * 3 - 4 ⇒ a = 26
a = 26
4)
a := -12 // a = -12
b := 14 - a / 2 // 14 - (-12) / 2 ⇒ b = 20
b := (b - a) / 8 // (20 - (-12)) / 8 ⇒ b = 8
a := b * 2 + 6 // 8 * 2 + 6 ⇒ a = 22
a = 22
5)
a := 7 // a = 7
b := 2 // b = 2
a := b * 4 + a * 3 // 2 * 4 + 7 * 3 ⇒ a = 29
b := 30 - a // 30 - 29 = 1
b = 1