<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),1000,2000); a.Println;
Writeln('Найдено чисел: ',a.Where(x->((x div 100) mod 10).IsEven).Count)
end.
<u>Пример</u>
n= 15
1858 1708 1342 1760 1347 1845 1709 1379 1098 1173 1164 1254 1222 1403 1820
Найдено чисел: 7
<span>Врач (Обследование, диагностика, назначение лечения).
Дизайнер (Создание интерьеров, подбор фактуры и цвета отделочных материалов, расположение предметов).
Архитектор (Проектирование новых зданий и сооружений, создание чертежей конструкций). Библиотекарь (Формирование каталогов; хранение книг, газет и журналов в электронной форме; быстрый поиск и доступ к нужному материалу). Бухгалтер (Быстрый расчёт заработной платы, учёт доходов и налогов, подготовка документации). Композитор (Создание, обработка, исполнение музыкальных композиций).
Конструктор (Проектирование и расчёт характеристик новых механизмов и конструкций). Модельер (Разработка новых моделей одежды и обуви, подготовка выкроек). Мультипликатор (Создание движущихся изображений, спецэффектов). Переводчик (Выполнение перевода отдельных слов, фраз и текстов с одного языка на другой). Учитель (Демонстрация изучаемого материала в наглядной форме, проведение экспериментов, проверка знаний).
Художник (Создание новых изображений, изменение имеющихся рисунков и фотографий).</span>
Uses crt;
a,b : integer;
Begin
Write ('Введите a:');
Readln(a);
If (a=0) then writeln('Корней нет')
Else writeln ('x равен ',14/a);
End.
Раздел "Проверь себя".
Первый номер:
1. 22(10)=0110(2);
2.22(10)=6(8);
3.22(10)=6(16).
Второй номер:
10100(2) соответствует числу 20(10).
Третий номер.
В двоичной системы счисление - это 11;
В восьмеричной системы счисление - это 77;
В шестнадцатеричной системы счисление - это FF, равное 15.
// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
if sin(x)*sin(x+1)<=0 then Writeln('Корень есть')
else Writeln('Корня нет')
end.
