Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x > 2) then begin
if (a = b) then
writeln('a и b равны');
if (b = c) then
writeln('b и c равны');
if (a = c) then
writeln('a и c равны');
end
else
writeln('Поиск не состоялся');
end.
// PascalABC.NET 3.0, сборка 1128
begin
var k:=0;
for var i:=100 to 999 do
if (i div 100)+(i mod 10)+((i div 10) mod 10)=5 then Inc(k);
Writeln('Количество чисел равно ',k)
end.
<u><em>Тестовое решение:</em></u>
Количество чисел равно 15
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if a[i,j].IsEven then a[i,j]:=1;
Writeln('*** Результирующая матрица[',m,',',n,'] ***');
a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
23 -23 -25 38 40 38 50 45 -35
-41 31 2 30 37 -30 -9 -8 -28
-12 20 -20 32 29 7 19 23 46
-48 -21 -27 19 10 -17 -20 -27 -47
-39 -11 19 -23 9 6 29 -24 -14
2 -7 37 -22 38 23 5 -33 37
*** Результирующая матрица[6,9] ***
23 -23 -25 1 1 1 1 45 -35
-41 31 1 1 37 1 -9 1 1
1 1 1 1 29 7 19 23 1
1 -21 -27 19 1 -17 1 -27 -47
-39 -11 19 -23 9 1 29 1 1
1 -7 37 1 1 23 5 -33 37
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.