Дан текстовый файл, который называется chisla. txt. Считать из файла значения переменных m, n, s и найти произведение этих переменных, если m четное, иначе найти сумму этих переменных. Результат вывести в файл resultat. txt.

Question

Информатика

Алфея

9 октября, 01:39

Дан текстовый файл, который называется chisla. txt. Считать из файла значения переменных m, n, s и найти произведение этих переменных, если m четное, иначе найти сумму этих переменных. Результат вывести в файл resultat. txt.

+1

Ответы (1)

Знаешь ответ?

Белла · Answer 1

var m, n, t, res:integer; var txt:text; begin assign (txt,'chisla. txt'); reset (txt); read (txt, m, n, t); close (txt); assign (txt,'resultat. txt'); rewrite (txt); res : = (m mod 2 = 0? m*n*t : m+n+t); write (txt, res); close (txt); end.