Регистрация
311020029332
22.11.2022 17:01
Информатика
Есть ответ 👍

Pascal прошу дан файл f компоненты которого являются действительными числами найти произведение компонентов файла

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

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

катерина424
катерина424
4,6(87 оценок)
Var   f : text;   x,  mult: real; begin   mult : = 1;   assign(f, 'f');   reset(f);   while not eof(f) do   begin     readln(f,  x);     mult : = mult * x;   end;   close(f);   writeln(mult); end.
Артём84748
Артём84748
4,8(65 оценок)

Надо сделать так что бы компьютер работал как надо! Вот ответ переведи и запиши!

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