Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / Prog04
.pas program prog04;
uses crt;
var name: string[25];
begin
clrscr;
write('Введите имя : ');
readln(name);
write('Имя ', name, ' содержит ', length(name), 'символ. ');
readln;
end.
uses crt;
var name: string[25];
begin
clrscr;
write('Введите имя : ');
readln(name);
write('Имя ', name, ' содержит ', length(name), 'символ. ');
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции