Сформируйте массив С (1…

Question

Сформируйте массив С (1… 8) вещественных элементов вводом с клавиатуры. Выведите на экран количество и произведение элементов, кратных 8.

Answer 1

38

korablef

19 апреля 2023

var c: array[1… 8] of real; i,k: integer; p: real; Begin p: =1; for i: =1 to 8 do begin readln (c[i]); if c[i] mod 8=0 then begin p: =p*c[i]; k: =k+1; end; end; writeln (p,k); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: