6 апреля, 02:38

Составить программу начисления стипендии группе студентов из 25 человек

по итогам сессии из 5 экзаменов. Стипендия в размере 900 рублей

начисляется студенту, не имеющему троек. Посчитать сумму, необходимую

для выплаты стипендии и вывести список студентов, получающий стипендию.

+3
Ответы (1)
  1. 6 апреля, 04:01
    0
    Program Stipendiya;

    type

    Student = record

    Ocenka: array [1 ... 5] of Byte;

    end;

    var

    i, j: Byte;

    Summa: Integer;

    Troechik: Boolean;

    Studenti: array [1 ... 25] of Student;

    begin

    for i:=1 to 25 do

    begin

    / / Zapolnyaem ocenki studentov:

    WriteLn ('Vvedite ocenki '+IntToStr (i) + ' studenta: ') ;

    for j:=1 to 5 do

    begin

    Write ('Ocenka za '+IntToStr (i) + ' ekzamen: ') ;

    ReadLn (Studenti[i]. Ocenka[j]) ;

    end;

    end;

    / / Chitaem summu

    S:=0;

    WriteLn ('') ;

    for i:=1 to 25 do

    begin

    //

    Troechik:=False;

    //

    for j:=1 to 5 do

    if Studenti[i]. Ocenka[j] < 4 then Troechik:=True;

    //

    if not Troechik then

    begin

    WriteLn ('Vidat stipendiu '+IntToStr (i) + ' studentu') ;

    Summa:=Summa + 900;

    end;

    end;

    / / Vivod summi vsex stipendii

    WriteLn ('Summa vsex stipendii = '+IntToStr (Summa)) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составить программу начисления стипендии группе студентов из 25 человек по итогам сессии из 5 экзаменов. Стипендия в размере 900 рублей ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Ответы (1)
Переведите число 202 из восьмеричной системы счисления в десятичную
Ответы (1)
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Ответы (1)
Вводятся 3 числа, вывести на экран нечетные числа pascal
Ответы (1)
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Ответы (2)
Мощность первого в алфавита составляет 2048 символов информационный вес символа на второго алфавита она 2 бита меньше чем информационный вес символа из первого алфавита определите мощность второго алфавита
Ответы (1)
Известно правило кодирования - после каждой гласной буквы ставится буква "и", после каждой согласной - "ц". Зашифруй слова: практикум, принтер, секрет, честь.
Ответы (1)
Представить целое десятичное число 171 во внутримашинном представлении размером два байта.
Ответы (1)
Для записи текста использовался 64-символьный алфавит. Какое колисество информации в байтах содержит 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Ответы (1)
Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Ответы (1)