===== PascalABC.NET =====
procedure Tri(a, b: real; var c, S, P: real);
begin
c := Sqrt(a * a + b * b);
S := 0.5 * a * b;
P := a + b + c
end;
begin
var (a, b) := ReadReal2('Введите длинв катетов:');
var c, S, P: real;
Tri(a, b, c, S, P);
Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,
', периметр ', P:0:3)
end.
ПЕР
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН
Исправленный вариант:
<span>program Kopeika;
var
a: integer;
begin
Writeln('Vvedite chislo');
Readln(a);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write(a, ' kopeika');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write(a, ' kopeiki');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write(a, ' kopeek');
end;
Readln;
</span>end.
перезагрузки игру или проще начни занова или выключи интернет и антивирусник но не забудь включить когда из игры выйдеш у меня сробатывало
===== PascalABC.NET =====
begin
var N := ArrRandom(18, -199, 199); // случайные числа
Println('Массив N');
N.Println;
Println('Максимальное значение', N.Max);
var Y := N.Where(p -> Abs(p).InRange(10, 99)).ToArray;
Println('Массив Y');
Y.Println;
Println('Максимальное значение', Y.Max);
end.