1. написать программу, которая подсчитывает количество, сумму и среднее арифметическое положительных - id869000020211024 от roman81rudi 24.10.2021 20:48

Question

Информатика: 1. написать программу, которая подсчитывает количество, сумму и среднее арифметическое положительных чисел последовательности. размер последовательности определяет сам пользователь программы. 2. написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. размер последовательности определяет сам пользователь программы. принять, что последовательность состоит только из целых положительных чисел.

roman81rudi · Accepted Answer

Код var     x, y, z, a, b, c, d, t: integer ; begin     x := 336;     y := 8;     x := x div y;     y := x mod y;     writeln( x = , x, , y = , y);         a := 1686;     b := (a div 10) mod 5;     a := a - 200 * b;     writeln( a = , a, , b = , b);         x := 11;     y := 5;     t := y;     y := x mod y;     x := t;     y := y + 2 * t;     writeln( x = , x, , y = , y, , t = , t);         x := 19;     y := 3;     z := y * 2;     y := x mod y;     x := x - z;     y := y + z;     writeln( x = ,...

MOGZ ответил