Задачи 1,2,4: / PascalABC.Net 3.0, сборка 1066 var n:BigInteger; begin var s:=ReadlnString('Введите натуральное число: '); If BigInteger.TryParse(s,n) then begin var c:=ReadChar('Введите проверяемую цифру: '); Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз'); Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct); Writeln('Перевертыш: ',s.Inverse); end else Writeln('Ошибка при вводе числа') end.
Тестовое решение: Введите натуральное число: 355678679650768680078676985643546809678546263435 Введите проверяемую цифру: 4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз Максимальная цифра числа: [9] Перевертыш: 534362645876908645346589676870086867056976876553
Задача 3 // PascalABC.Net 3.0, сборка 1066 begin var m:int64:=-1; var n:int64:=0; Writeln('Принимаются неотрицательные целые числа'); while (n>=0) and (m<n) do begin m:=n; n:=ReadInteger('Введите число: ') end; if m>=n then Writeln('Последовательность невозрастающая') else Writeln('Последовательность возрастающая') end.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку