А, С. Тип написать надо побольше. Привет, как дела?
Var
i: integer;
s: string;
begin
readln(s);
for i := 1 to s.Length do
if(s[i] = '.') then s[i] := 'M';
writeln(s);
end.
Ответ:
program Loto;
var
L: array [1..50] of Integer;
a: array [1..3] of Integer;
i, j, n: Integer;
b: Boolean;
begin
for i := Low (L) to High (L) do
L [i] := i;
Randomize;
for i := 1 to 3 do begin
repeat
n := Random (51) + 1;
until L[n] <> 0;
a [i] := L [n];
L [n] := 0;
end;
for i := 1 to 3 do
Write (a [i], ' ');
ReadLn;
end
Объяснение:
сделана проверка чтобы 3 числа не совпадали друг с другом
Var a,b,c:real;
begin
write('Введите стороны треугольника а,b и c: ');
readln(a,b,c);
if (a=b) and(b=c) then
writeln('Треугольник равносторонний')
else writeln('Треугольник неравносторонний');
<span>end.</span>