Программа: Вывод 1 и 5 символа слова

Задача: Ввести слово из 5 символов и вывести 1 и 5 симовол введенного слова

PROGRAM vivodsimvolov;
	var str: string[5];
	var i :integer;

BEGIN WriteLn ('Введите строку из 5 символов: '); ReadLn (str); for i:=0 to 5 do Write (str[i]); WriteLn ('Смотри ниже робит или нет') ; Write (str[1]); Write (str[5]); END.

Просмотрело: 2206

Возможно, Вы искали: