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.

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.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

function Sed(n:integer):integer;
// Возвращает сумму четных цифр в числе
begin
  (n,Result):=(Abs(n),0);
  while n>0 do begin
    var d:=n mod 10;
    if d.IsEven then Result+=d;
    n:=n div 10
    end
end;

begin
  var (a,b):=ReadInteger2('Введите два целых числа через пробел:');
  var (s1,s2):=(Sed(a),Sed(b));
  if s1>s2 then Writeln(a) else Writeln(b)
end.

Пример
Введите два целых числа через пробел: 6213 5841
5841

begin
  var r:=Abs(ReadReal('Введите действительное число:'));
  if Trunc(r).IsEven then Writeln('YES') else Writeln('NO')
end.

Примеры
Введите действительное число: -435.234
NO

Введите действительное число: 20608.6536
YES

Бд- материалов (статей, расчётов, нормативных актов, судебных решений и иных подобных материалов), систематизированных таким образом, чтобы эти материалы могли быть найденыи обработаны с электронной вычислительной машины (ЭВМ).
Систе́ма управле́ния ба́зами да́нных (СУБД) — совокупность программных и лингвистических средств общего или специального назначения, обеспечивающих управление созданием и использованием базданных. управление данными во внешней памяти (на дисках); управление данными в оперативной памяти с использованием дискового кэша; журнализация изменений, резервное копирование и восстановление базы данных после сбоев;
2используются для определения, хранения, обработки данных. используется везде, даже на стационарных компьютерах
3 цель в том, чтоб предложить пользователю абстрактное представление данных, скрыта конкретные особенности хранения и управления ими