На языке pascal напишите программу, которая будет подсчитывать количество двоек, четвёрок и пятёрок, полученных за контрольную работу по при условии если в классе 32 человека. исходные данные вводятся с клавиатуры с соблюдением правил дружественного интерфейса.

ответ в файле:

Var
  A, i, k2, k4, k5, c, d, N: integer;
Begin
  Write('Введите количество учеников в классе: ');ReadLn(N);
  if (N = 32) then
  Begin
    c := 1;
    d := 5;
    WriteLn('Введите оценки учеников:');
    k2 := 0;
    k4 := 0;
    k5 := 0;
    i := 1;
    While i <= N do
    Begin
      Write('Оценка ученика №',i,': ');ReadLn(A);
      if (c <= A)and(A <= d) then
      Begin
        Case A of
          2: k2 := k2+1;
          4: k4 := k4+1;
          5: k5 := k5+1;
        End;
        i := i+1;
      End
      else
        WriteLn('Неприемлимое значение! Допустимые значения: [',c,'..',d,']');
    End;
    WriteLn('Количество двоек: ',k2);
    WriteLn('Количество четвёрок: ',k4);
    WriteLn('Количество пятёрок: ',k5);
  End
  else
    WriteLn('В классе не 32 ученика');
End.

К общению в Интернете детей приучают их собственные родители.

35% россиян признались, что большую часть свободного времени проводят в Сети. При этом они ищут интересную информацию, читают новости, но в первую очередь — общаются в различных приложениях и социальных сетях. И появление ребёнка никак не меняет родительских привычек.
Многие родители после рождения своего чада начинают проводить в Интернете даже больше времени, чем прежде, ведь теперь они ищут информацию, касающуюся воспитания, кормления и других детских проблем.

Со временем взрослые начинают проводить время перед компьютером вместе с детьми. 46% о общаются со своими детьми и родителями при социальных сетей, нередко находясь при этом в соседних комнатах!

В социальных сетях родители добавляют в друзья своих детей для того, чтобы следить за тем, что происходит в жизни ребенка (53,8%). Дети же, напротив, относятся к добавлению родителей в друзья с осторожностью: 75% стараются не пересекаться со своими родителями в социальных сетях из-за желания создать своё собственное, личное пространство, без родительских ограничений. В основном дети добавляют в друзья собственных родителей для удобства обмена информацией (60%). А 24% детей добавляют родителей только потому, что им неудобно отвечать на запрос родителя отказом.

1 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a;

   cin >> a;

   if (a < 7) cout << "Yes";

   else if (a > 10) cout << "No";

   else cout << "Error";

   return 0;

}

2 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a, b;

   cin >> a >> b;

   if (a > b) cout << "yes";

   else {

       long long c = a;

       a = b;

       b = c;

       cout << a << ' ' << b << endl;

   }

   return 0;

}

3 задача:

#include <bits/stdc++.h>

using namespace std;

int main() {

   long long a, b;

   cin >> a >> b;

   if (a * b >= 0) cout << "YES";

   else cout << "NO";

   return 0;

}