Регистрация
Vainax
01.08.2022 05:05
Информатика
Есть ответ 👍

Из 27 целых чисел,заданных с клавиатуры ,найти произведение отрицательных элементов.

208
246
Посмотреть ответы 3

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

89998708973
89998708973
4,6(83 оценок)
1п0 0 п4  с/п x< 0 10 ип0 * п0 кип4 ип4 2 7 - x=0 04 ип0 сx с/п инструкция: в/о с/п число_1 с/п число_2 с/п число_27 с/п. после получения 27-го числа на индикаторе результат.
amir161
amir161
4,5(32 оценок)
Const   n=27; var   i,t: integer;   p: real; begin   p: =1;   for i: =1 to n do begin read(t); if t< 0 then p: =p*t end;   writeln('произведение отрицательных элементов равно ',p) end. пример -12 35 -98 -15 36 -40 -95 -12 -57 40 66 -53 -44 23 -2 67 -28 59 -74 -97 -65 -13 -47 94 12 18 -52 произведение отрицательных элементов равно -8.87597799232315e+25
агтл
агтл
4,4(68 оценок)

ответ:

var

  s,n,m : integer;

begin

write('введите натуральное число: ');

readln(n);

s: = 0;

repeat

  m: = n mod 10;

  s: = s + m*m;

  n: = n div 10;

until n = 0;

writeln('сумма квадратов цифр: ',s);

end.

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