A = true =>( A || (B && !C) )= true
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5
// PascalABC.Net 3.0, сборка 1066
begin
var n:=ReadInteger('Количество элементов массива: ');
var a:=ArrRandom(n,-10,10);
Writeln('Исходный массив: ',a);
Writeln('Максимумов: ',a.Where(x->x=a.max).Count)
end.
<em><u>Тестовое решение:</u></em>
Количество элементов массива: 20
Исходный массив: [5,-4,-9,-5,-10,10,10,-9,1,-8,0,-6,0,6,-3,-10,-2,2,-9,10]
Максимумов: 3
<span>64*64*8=32768кб= 4096 байт = 4 кб</span>