50б -инструменты анализа «что, если» в ms excel. создать таблицы и использовать формулы для нахождения сумм.

283

351

Посмотреть ответы 1

Ответы на вопрос:

Ученик221603

Информатика

4,6(45 оценок)

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. тестовое решение: принимаются неотрицательные целые числа введите число: 4 введите число: 6 введите число: 12 введите число: 83 введите число: 170 введите число: 214 введите число: 170 последовательность невозрастающая