alarm
Задайте вопрос
Информатика
Steven Cole

Ребят, нужна хоть какая нибудь консультация. Поэтому подскажите:var d1: text; var c: integer; var d: integer; var f: integer; begin assign(d1,'rab4. txt'); reset(d1); d:=1; while not eof(d1) do begin c:=c+1; readln(d1,f); writeln(c,' ',f); if (f>=12) and (f<=15) and (f mod 2<>0) then d:=d*f; writeln('Текущее произведение =',d, ' элемент равен - ',f); end; writeln('Произведение нечетных чисел в диапазоне 12-15 =',d); end. Правильная ли программа?P. S. Программа связана с файлом, где находится 101 значение, меня не Как узнать сколько это волнует, Как узнать сколько правильность того, что я накарякал тут. . .

ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Чтобы ответить необходимо зарегистрироваться.

Другие вопросы: - Информатика

что такое Оглавление (с гиперссы

Как не навредить себе при работе

2D мен 3D моделдеудын айырмашылы

язык–pascalнаписать программу ре

Определи значение переменной s п

Последствиях несоблюдения мер бе

Контакты
Реклама на сайте