• помогите решить кто знает паскаль
    Вот задача
    Дан файл с оценками .txt учащихся
    Написать программу которая определяет количество пятерок, четвёрок, троек.
    Вывести их количество на экран.
    Нужно написать в текстовом документе а с помощью Паскаля это прочитать
    Пожалуйста!!!!

Ответы 1

  • // PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  var a:=ReadallLines('in.txt')[0].ToIntegers;  Writeln('Исходный набор отметок'); a.Println;  var k3:=a.Where(x->x=3).Count;  var k4:=a.Where(x->x=4).Count;  var k5:=a.Where(x->x=5).Count;  Writeln('Троек- ',k3,', четверок- ',k4,', пятерок-',k5)end.Тестовое решениеИсходный набор отметок3 4 4 5 5 3 4 4 5 4 3 5 5 3 5 3 4 3 3 4 5 4 4 3 4 4 3 4 5 4Троек- 9, четверок- 13, пятерок-8Файл с отметками in.txt дан во вложении.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years