Кажется, эта ссылка должна помочь!
https://support.office.com/ru-ru/article/%D0%92%D0%BE%D1%81%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D1%84%D0%B0%D0%B9%D0%BB%D0%B0-Office-4bddecb7-bf4f-4aad-b1b3-dab1633b5bbf
Сама с таким сталкивалась, но восстановить не получилось
Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
Кодировка ASCII - семибитная,
КОИ-8 - восьмибитная,
Windows-1251- восьмибитная
Значит эти варианты отпадают.
Остается Unicod, правда здесь надо сделать примечание:
Для тех входных данных, которые указаны в условии задачи кодировка UTF-16
Ответ: Unicode
Нужно сложить Фреграт и эсминец и вычесть из этого фрегат & эсмнинец
2000 +2500 - 500 = 4000 стр
#include <iostream>
using namespace std;int main(){setlocale(LC_ALL, "Russian");int in_user;cout << "На каком вы курсе?" << endl;while(cin >> in_user){if(in_user > 0 && in_user < 12){cout << "Я учусь на "<< in_user << "-курсе";break;}else{cout << "С тобой все в порядке? Нет такого курса" << endl<< "На каком вы курсе?" << endl;}}return 0;}