===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ArrRandom(n, -5, 5);
var k := a.Println.Count(p -> p = 2);
if k = 0 then
Print('Нет элементов, равных 2')
else
Print('Число элементов, равных 2:', k)
end.
99 жаттығу немесе 100 жаттығу қай жаттыгу
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Пусть х - основание системы счисления
Составляем уравнение
1*x^2+2 = 2*(1*x+2)+1
x^2 - 2x + 2-4-1 = 0
x^2 - 2x - 3 = 0
корни 3 и -1
Значит х = 3 (больше 0)