ЗА БЫСТРЫЙ ОТВЕТ А) Найти сумму ряда: S=(5/10*9*8)+(5/9*8*7)+….+(5/3*2*1). В) Найти произведение ряда: Р=(0,2/0,5)*(0,6/0,5)*(1,0/0,5)*….*(4,2/0,5). С*) Вводится 8 целых чисел с клавиатуры. Подсчитать количество отрицательных среди введенных.
Короче в интернете ты не найдёшь ответы. Тебе придётся либо самому прочитать учебник и понять всё, либо попросить у друзей, либо списать у одноклассников. Выбор за тобой.
А) не знаю
Б) тоже не знаю
С) это может быть не правильным
Uses crt;
var
a:real;
k, i:integer;
begin
for i:=1 to 8 do begin
readln (a);
if a<0 then
k:=k+1;
end;
write (k)
end.
Объяснение:
Извини что не смог
Короче в интернете ты не найдёшь ответы. Тебе придётся либо самому прочитать учебник и понять всё, либо попросить у друзей, либо списать у одноклассников. Выбор за тобой.