«вычисления по известным формулам». написать программу: 15 известны ширина и длина прямоугольника. сколько квадратов со стороной а можно вырезать из данного прямоугольника?

если брать ширину 4 клеточки, а длину 6 клеточек, и задать сторонку квадрата 2 то будет   6 квадратов.. .

программа без всяких проверок, если нужно то уже в лс.

 

uses crt; var d,sh,a,z: real; beginwriteln('write dlinu '); readln(d); writeln('write shirinu'); readln(sh); writeln('write dlina storony a '); readln(a); z: =(d*sh)/sqr(a); writeln(z); readln; end.

Const       n = 2016; var       a: array[1..n] of integer;       i, m, k: integer; begin       randomize;       m : = 1;       for i : = 1 to n do       begin               a[i] : = random(1000);               m : = m * a[i] mod 2; //              write(a[i], ' ');       end;             k : = -1;       for i : = 1 to n do               if (a[i] mod 2 = m) and (a[i] > k) then                       k : = a[i];             writeln(k); end. ответ примерно будет одинаковым, так как много цифр в массиве

Как-то так #include < iostream> using namespace std; int main(){    cout < < "vvedute kol-vo ocenok" < < endl;     int n,i,a,four,five;     n = i = a = four = five = 0;     cin > > n;     for (i = 1; i < = n; i++)    {        cin > > a;         if (a == 4){          four++; }   else if (a == 5)      {          five++;       }    }    if (four > five){    cout < < "four" < < endl; } else if (five > four)      {    cout < < "five" < < endl;       }      else      {          cout < < "equal"< < endl;       }      cout < < "kol-vo 4: " < < four < < " kol-vo 5: " < < five < < endl;     return 0; }