Var
A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
if (A div 10) + (A mod 10) > 3 then WriteLn('Да')
else WriteLn('Нет')
End.
//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
m.Println();
{1}
Writeln('количество элементов соответствующей строки');
var number := ReadInteger('Введите число, для проверки =');
var a := m.Rows.Select(r -> r.Count(x -> x > number));
a.Println;
{2}
Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
b.Println;
Writeln(b.Any(x -> x > 0));
{3}
Writeln('Заполнить массив');
var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
m.Println();
end.
Программа на Pascal:
var c: integer;
begin
writeln('Введите число C');
readln(c);
if c<>0
then writeln('Не равно 0')
else writeln('Равно 0');
end.
Const
N = 30;
Var
A,B:array[1..N] of integer;
i,S,M:integer;
Begin
Randomize;
Write('A(',N,'):');
M:=0;
For i:= 1 to N do
Begin
A[i]:=random(11)-5;
Write(' ',A[i]);
if A[i] > 0 then
Begin
M:=M+1;
B[M]:=A[i];
End
End;
WriteLn;
Write('B(',M,'):');
For i:= 1 to M do
Write(' ',B[i]);
ReadLn;
End.