KAIRA
Новичок
|
    
Пользователь задает слово
Компьютер заменяет буквы в слове на их порядковый номер в алфавите...
вот решение:
program jylechka;
const alf:array[1..26] of string=('A','B','C','D','E','F','G','H',
'I','J','K','L','M','N','O','P',
'Q','R','S','T','U','V','w','X',
'Y','Z');
var i,j:integer;
str:string;
begin
writeln('vvedite stroku:');
readln(str);
for i:=1 to length(str) do
for j:=1 to 26 do
if upcase(str[ i ])=alf[j] then write(j,' ');
readln;
readln
end.
помогите составить блок схему....
|
Форум
помогите составить блок схему
