Hardware id, версию системы, имя пользователя и еще некоторые системные данные. от ПО к ПО список разный
Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.
Римская система счисления - частично позиционная, и по правилам этой системы счисления предложенное число можно представить так:
DCXLI = 500 + 100 - 10 + 50 +1 = 641
Однако, можно было и не производить вычисления. Так как предложенное число нечетное, а в списке вариантов ответов присутствует только одно нечетное число.
Ответ: Б
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4