IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Из 1251(ANSI) в 866(OEM), Консольное приложение
сообщение
Сообщение #1


Разведчик
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +


М
Пользуйся тегами


Посмотрите :

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
var A,B,Summ:integer;
TmpStr:pchar;
begin
TmpStr:=' ';
CharToOem('Введите значение двух целых чисел',TmpStr);
write(TmpStr);
readln(A,B);
Summ:=A+B;
writeln(Summ);
readln;

end.


почему не работает. Должен по идее отображаться текст с русскими буквами, но прога ваще не пашет...

Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.05.2022 11:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name