Вычислить сумму чётных и произведение нечётных чисел в интервале от 1 до n. Программа Pascalabc.Спасибо)

Знания

Информатика

1 ответ:

Андрей Викторов1 год назад

0 0

Вот решение твоей задачки
ПС программу проверял. она отлично работает!!!!!!!!!!!!!!!!!!!!!!!!!!

Читайте также

Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа N (без остатка). Если

Эндрю777

Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.

0 0

4 года назад

Сделайте все в программе Excel Даю 55 БАЛЛОВ Помогите очень прошу

Квартирники

<span>программе Excel поиск 25 в количество</span>

0 0

4 года назад

Отсортировать слова в порядке лексикографического возрастания и в качестве ответа вывести слово, находящееся ровно посередине (м

Натали гололобова [50]

Print(sorted("Sam is a multi-file text editor based on structural regular expressions It was originally designed in the early 1980s at Bell Labs by Rob Pike with the help of Ken Thompson and other Unix developers for the Blit windowing terminal running on Unix it was later ported to other systems Sam follows a classical modular Unix aesthetic It is internally simple its power leveraged by the composability of a small command language and extensibility through shell integration".split())[39])

0 0

4 года назад

Создавать модель - это значит _______________________. Помогите please урок уже завтра!!!!!!!!!!!!

Zamihora [19]

Создавать модель - это значит сконструировать предмет в уменьшенном размере.

0 0

4 года назад

Решить задачу в MS Excel. Веселые человечки решили сходить в поход. Пончик испек для всех пирожки с мясом, яблоками, капустой и

Paul555 [7]

Лист защищен без пароля, чтобы случайно не повредить формулы.

0 0

4 года назад