Дан текстовый файл, который называется chisla.txt.Считать из файла значения переменных m,n,s и найти произведение этих переменных, если m четное, иначе найти сумму этих переменных.Результат вывести в файл resultat.txt.
Answers & Comments
Kolsky
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.
Answers & Comments