var x, y: integer;
begin
readln(x, y);
if x mod 10 = 4 then write(x * y)
else write(x + y);
end.
Var a,b,c : real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник существует')
else writeln('Треугольника не существует');
end.
Пример:
<span>a= 3
b= 4
c= 5
Треугольник существует</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив',ReadInteger('Введите длину массива'));
var b:=ReadInteger('b =') - 1;
a := a.where((v,i) -> i <> b).ToArray;
a.Println;
end.
Пример:
Введите длину массива 5
Введите массив 1 2 3 4 5
b = 4
1 2 3 5
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
1. Да, так как часто мошенники для достижения своих целей прибегают к помощи технических средств.