во блин, точно. никогда бы не догодался. Тем более говорилось что в виндусе нет разницы между верхнем и нижнем регстре. А самое интересное это то что в учебнике пример написан заглвными буквами...
Спасибо большое
Найдено 2 результата
- 27.12.2010 00:52:30
- Форум: Free Pascal Compiler
- Тема: Помогите с программой
- Ответы: 4
- Просмотры: 4101
- 26.12.2010 23:55:53
- Форум: Free Pascal Compiler
- Тема: Помогите с программой
- Ответы: 4
- Просмотры: 4101
Помогите с программой
вот код:
{ P_20_2.pas }
var S: string; k: integer;
procedure Scan(var arg : string);
var k: integer;
begin
for k:=1 to Length(arg) do
if arg[k]='A' then arg[k]:='B';
end;
begin
for k:=1 to 3 do begin
Write('Введите строку: '); Readln(S ...
{ P_20_2.pas }
var S: string; k: integer;
procedure Scan(var arg : string);
var k: integer;
begin
for k:=1 to Length(arg) do
if arg[k]='A' then arg[k]:='B';
end;
begin
for k:=1 to 3 do begin
Write('Введите строку: '); Readln(S ...