В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Swerri
Swerri
21.04.2022 15:57 •  Информатика

Pascal. дана ведомость учащихся и количество их пропусков за семестр (в часах). определить кол-во учащихся, не имеющих пропусков, и количество учащихся с пропусками в более чем 20 часов. за основу можно взять эту программу, но нужно сделать чтобы он воспринимал "> 20 часов". program pr2; uses crt; type t=record names: string[15]; score: integer end; var list: t; n,i,sum1,sum2: integer; begin clrscr; sum1: =0; sum2: =0; writeln('введите количество учащихся'); readln(n); writeln('введите фамилию и имя'); for i: =1 to n do with list do begin readln(names); writeln('количество пропущенных часов у учащегося'); readln (score); if score=0 then sum1: =sum1+1; if score=20 then sum2: =sum2+1 end; writeln('количество людей без пропусков = ',sum1: 3); writeln('количество людей с пропусками больше 20 часов =',sum2: 3) end.

Показать ответ
Ответ:
Девочка1124
Девочка1124
03.10.2020 18:27
Type
    t = record
        name: string[15];
        mishours: integer
    end;

var
    list: array[1..10] of t;
    n, i, k0, k20: integer;

begin
    writeln('Введите количество учащихся');
    readln(n);
    
    k0 := 0;
    k20 := 0;
    for i := 1 to n do
        with list[i] do
        begin
            write('Фамилия имя = ');
            readln(name);
            write('Пропущенных часов = ');
            readln(mishours);
            
            if mishours <= 0 then k0 := k0 + 1;
            if mishours > 20 then k20 := k20 + 1
        end;
    
    writeln('Количество людей без пропусков = ', k0:3);
    writeln('Количество людей с пропусками больше 20 часов =', k20:3)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота