М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mmhhmuraad
mmhhmuraad
16.10.2021 15:31 •  Информатика

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

👇
Ответ:
Юля9887
Юля9887
16.10.2021
ответ в файле:
4,6(25 оценок)
Ответ:
dashazoriksv
dashazoriksv
16.10.2021
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.
4,8(81 оценок)
Открыть все ответы
Ответ:
Deverly1
Deverly1
16.10.2021
К общению в Интернете детей приучают их собственные родители.

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

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

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

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;

}

4,5(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ