Информатика 9 класс помогите пожалуйста

Информатика 9 класс помогите пожалуйста

Задать свой вопрос
Jana
какой номер задания нужен?
Ева Ильчанаева
1 и 2
1 ответ
//PascalABC.NET 3.1 сборка 1239
1)
begin
    var a := SeqWhile(ReadInteger('Число ='), x -gt; ReadInteger('Число ='), x -gt; x lt;gt; 0);
    var n := a.Count(x -gt; x gt; 10);
    writeln(n);
end.
2)
begin
    var n := ReadInteger('n =');
    var a := SeqWhile(ReadInteger('Число ='), x -gt; ReadInteger('Число ='), x -gt; x lt;gt; 0);
    writeln(a.Where(x -gt; x lt; n).Max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт