Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
290
Добавлен:
04.03.2014
Размер:
423 б
Скачать
Одна из самых первых и самая простая задача. Для тех, кто конкретно отстал. p.s. нет системных модулей, которые нужны на delphi. не забудьте скопипастить их, когда придёте сдавать.
*******************************************program e;
var
c1,c2,c3,c4:char;

s:integer;
begin
writeln('vvedite c1,c2,c3,c4');
readln(c1,c2,c3,c4);
s:=1000*(ord(c1)-48)+100*(ord(c2)-48)+10*(ord(c3)-48)+(ord(c4)-48);
writeln(s);
end.
Соседние файлы в папке Char. Символы