Есть программа которой на ввод поступает числа ( оценки) ввод оканчивается на e0, как в этой программе посчитать ср. арифм оценок, при условии что оценки на букву k - двойные, а на p-обычные? Код:
var input: string;
i: integer;
c: char;
begin
while true do
begin
readln(input);
c := input[1];
i := ord(input[2]) - ord('0');

if c = 'e' then
break;

write(c);
writeln(i);
end;

end.
Пример: ( я ввожу k3, p5, k4,p5, p2, k5, e0) Учитывая что k это двойная оценка, а p-одинарная

aman1382    2   29.10.2020 20:56    0