oleg20111511
12 lines
478 B
ObjectPascal
12 lines
478 B
ObjectPascal
program cha;
|
|
|
|
var c,x,y,z:char; //char - типо integer только кроме цифр есть буквы и точки
|
|
begin
|
|
z:= ('z'); // присвоил z значение "z"
|
|
WriteLn('введи x');
|
|
ReadLn(x); //читаем x
|
|
WriteLn(x+z); // складываем символы
|
|
WriteLn('4 буквы без пробелa.');
|
|
ReadLn(c,x,y,z);
|
|
WriteLn(c+x+y+z); // таким образом можно составить слово.
|
|
end. |