В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
roseflover2005
roseflover2005
24.07.2022 19:26 •  Информатика

Uses crt; var i,j: integer; f: array[1..8] of string; p: array[1..5] of string; otm: array[1..8,1..5] of integer; sbu: array[1..8] of real; sbp: array[1..5] of real; begin // ввод фамилий с клавиатуры writeln('введите 8 фамилий: '); for i: =1 to 8 do begin write(i,'-я фамилия ='); readln(f[i]); end; // закончен ввод фамилий // ввод предметов с клавиатуры writeln('введите 5 предметов: '); for i: =1 to 5 do begin write(i,'-й предмет ='); readln(p[i]); end; // закончен ввод предметов // выставление случайных оценок от 2 до 5 randomize; for i: =1 to 8 do for j: =1 to 5 do otm[i,j]: =random(4)+2; // закончено выставление оценок по пяти предметам для восьми уч-ся // вывод на экран табеля успеваемости write('фамилия': 10); for i: =1 to 5 do write (p[i]: 10); writeln; for i: =1 to 8 do begin write(f[i]: 10); for j: =1 to 5 do write(otm[i,j]: 10); writeln; end; end. {авторы программы} // на тройку: в итоговой таблице выводить sbu и sbp // на четверку: сколько человек без двоек и троек? сделайте на тройку и на четвёрку

Показать ответ
Ответ:
limbo03rus
limbo03rus
10.05.2022 11:30

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

   int r = 0, k = 0, t = 0;

   const int N = 50;

   char array[N];

   cin.getline(array, N);

   for (int i = 0; array[i]; i++)

   {

       if (array[i] == 'r')

       {

           r++;

       }

       if (array[i] == 'k')

       {

           k++;

       }

       if (array[i] == 't')

       {

           t++;

       }

   }

   cout << "r =  " << r << endl;

   cout << "k =  " << k << endl;

   cout << "t =  " << t << endl;

   return 0;

}

0,0(0 оценок)
Ответ:
Нифи2005
Нифи2005
11.04.2020 00:50

ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота