Выстроить фразу по диагонали

@PR · Регистрация: 16.06.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с задачей.

Составьте программу, которая введенное с клавиатуры предложение выстраивает по буквам по диагонали(снизу вверх).

@STGE · 18.03.2010, 20:26

Pascal

Program slovodiag;
Uses crt;
Var x,y,i: byte; n: string;
Begin
Clrscr;
x:=20;
y:=24;
n:='Строка по диагонали.';
For i:=1 to length(n) do
begin
Gotoxy(x,y);
Write(n[i]);
x:=x+1;
y:=y-1;
end;
End.

@PR 0 / 0 / 0 Регистрация: 16.06.2012 Сообщений: 8
		1
	Выстроить фразу по диагонали 18.03.2010, 19:02. Показов 2180. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с задачей. Составьте программу, которая введенное с клавиатуры предложение выстраивает по буквам по диагонали(снизу вверх). 0

	18.03.2010, 20:26

Выстроить фразу по диагонали

Решение