Паскаль В классе N учеников после диктанта было получено A-пятерок, B-четверок, С- двоек, остальные тройки. Найти процент троек.
Ответ прилагаю в виде кода, который находится в файле.
у меня легче, но спасибо
Можешь файлик кинуть, заценю. Может у тебя не более подробней.
program z2; var a,b,c,n,d: real; Begin n:=25; writeln ('найдите процент троек'); readln (a,b,c); d:=100-((a*100)/25+(b*100)/25+(c*100)/25); writeln('процент троек', d:6:2); end.
У меня более правильней, 1. writeln ('найдите процент троек'); readln (a,b,c); Здесь нужно вводить оценки а не процент или что-то 2. n:=25; величина может меняться, смотря от сути задачи. 3. d:=100-((a*100)/25+(b*100)/25+(c*100)/25); не всегда пойдет вместо 25 нужно указать n, и более наглядней и проше для учителя чтоб меньше придирок было.
как думаешь учителю пойдет?
С 1 пунктом категорически не согласен а остальное норм а да и 25 в n сделай всетаки изменяемая величина кол-во учеников