Регистрация
olenkazyateva
25.01.2021 23:39
Информатика
Есть ответ 👍

Циклические алгоритмы.составьте блок- схему для решения следующих : 1) вводятся 100 чисел.определить сколько среди них положительных и сколько отрицательных.(числа вводятся в одну переменную в цикле) 2) алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма и напишите программу для каждой

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

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

zhanara0507
zhanara0507
4,6(63 оценок)
Var a,i,b,m: integer; begin for i: =1 to 100 do begin read(a); if a> 0 then inc(b); if a< 0 then inc(m); end; writeln(b,' ',m); end.var i,a,r: integer; beginfor i: =1 to 10 do beginread(a); r+=a*a; end; writeln(r); end.
LENUSEA2007
LENUSEA2007
4,6(75 оценок)

var x: integer;

begin

if x< 0 then x: =x*2 else

x: =x-2;

end.

 

 

var i: integer; x: real; beginx: =75000; for i: =1 to 10 dox: =x*1.11; write(x)end.

Популярно: Информатика