Всписке класса, состоящем из n строк и m столбцов, отмечаются выполненные лабораторные работы. работа выполнена, если за нее проставлена оценка. за невыполненную работу
ставится нуль. школьник не допускается к следующей работе, пока он не выполнил предыдущую. написать программу, определяющую в процентах, сколько учеников класса наиболее близки
к завершению всех m работ
сделать

#include<iostream.h>

#include<conio.h>

#include<stdio.h>

 

int main()

 

 {

 

      int b;                                 // наше число b

      clrscr();                           // очищаем экран 

 

      cout<<"Введите b: ";  // Выводим на экран приглашение ввести и  

      cin>>b;                          // b присвиваем введённое значение  

 

         // если b=0 то выводим соответствующее сообщение 

 

        if (b==0)      cout<<"Ноль Совсем Ноль \n "; 

 

       // если b<0 и остаток от деления на 2 =0 то это  отрицательное четное число

        if  ((b<0) && (b%2)==0) cout<<"отрицательное четное число \n ";  

 

// если b<0 и остаток от дления на 2 <>0 то это  отрицательное нечетное число

 if  ((b<0) && (b%2)!=0) cout<<"отрицательное нечетное число \n ";

 

   

 // если b>0 и остаток от деления на 2 =0 то это  положительное   четное число  

        if  ((b>0) && (b%2)==0) cout<<"положительное четное число \n ";  

 

   // если b>0 и остаток от деления на 2 <>0 то это  положительное  нечетное число     

        if  ((b>0) && (b%2)!=0) cout<<" положительное  нечетное число \n ";   

 

  getch();   // ждём нажатия на любую клавишу перед  закрытием

  return 0; // стандартный выход  

 

} 

 

 

 

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3