Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
1.6 раз
2.1 раз
3.0 раз
4.1 раз
5.7 раз
6.0 раз
//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.