Напиши:Монитор,Мышка,Клавиатура,Системный блок
И сфоткай их
var
n, max, count, contrl: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if (n mod 10 = 0) and (n > max) then max := n;
Read(n);
end;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вичисленное контрольное значение:: ', max);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Положительных: ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 15
1 -1 -1 2 0 2 2 -2 -2 0 -1 -1 -2 1 1
Положительных: 6
б в д е, поскольку отдельно взятая цифра в числе не может превышать основание системы счисления. Например, вариант А ошибочен, так, как основание равно 6, а это значит что наибольшей цифрой в числе должно быть 5
А) 2, 3, 6, 7, 11; здесь лишнее число 11, так как оно двузначное
б) 18, 12, 3, 29, 45, 28; лишнее 3, так как оно однозначное
в) 10, 20, 30, 36, 40, 50; лишнее 36, т.к. остальные заканчиваются на 0
г) 72, 62, 52, 45, 32, 82; лишнее 45, т.к. остальные заканчиваются на 2
д) 24, 29, 22, 37, 25, 28; лишнее 39, т.к. остальные начинаются с 2
<span>е) 1, 2, 3 , 5, 6, 7. лишнее 5, т.к. все остальные ровно на единицу больше предыдущих </span>