Всем привет, сегодня я Вас обучу двум простым решениям, непростых на первый взгляд задач. Итак, поехали, буду краток и немногословен.
Задание №1:
Составить программу, которая позволяет ввести произвольное слово и вывести его вертикально.
Решение:
Program Primer;
Var A,B,Str:String;
I:Integer;
BEGIN
Writeln('введите слово');
READ(A);
B:=Copy(A,1,1);
FOR I:=1 TO Length(a) DO
Writeln(copy(a,I,1));
Readln;
REadln;
END.
Результат:
введите слово
Студент
С
т
у
д
е
н
т
Задание №2:
Составить программу, которая позволяет ввести произвольное слово и вывести его задом наперед.
Решение:
Program Primer;
Var A,B,Str:String;
I:Integer;
BEGIN
Writeln('введите слово');
READ(A);
B:=Copy(A,1,1);
FOR I:=Length(a) downto 1 DO
Write(copy(a,I,1));
Readln;
REadln;
END.
Результат:
введите слово
АСО-21
12-ОСА
Если Вам понравился урок, пишем в комментариях и ставим лайки.