Нарисуйте блок схему и напише программу для подсчёта сумму и произведения чисел вводимого числа.

242

327

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

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

olgai71p08imh

Информатика

4,5(95 оценок)

a, N: integer;

begin

N := 0; //начальное количество чисел в наборе

repeat

read(a); //вводим число

inc(N) //увеличиваем количество чисел

until a = 0; //если число = 0, то выходим

writeln;

write('количество чисел = ', N)

end.

Объяснение:

Это на паскале

алоал

Информатика

4,5(13 оценок)

Код программы var a: integer; function c(a: integer): integer; var b: integer; begin b : = 30; a : = -a - 3 * b; if a < b then c : = b + 45 else c : = b - 50; end; begin for a : = 1000 downto -1000 do if c(a) = -20 then begin writeln('a=', a, ' c(a)=', c(a)); break; end; end. вывод a=-120 c(a)=-20 аналитическое решение. видно что c: =b - 50 = 30 - 50 = -20 при a> =b -a-3*b> =b -a-3*30> =30-a-90> =30 -a> =120a< =-120