Помогите написать программу на Pascal ) Нужно, что бы программа выводила цикл. Вот такого содержания
12345
2345
345
45
5
Треугольником.
Ответы
Ответ дал:
0
var A:integer;
S:String;
begin
Readln(A);
Str(A,S);
While not(S='') do
begin
Writeln(S);
Delete(S,1,1);
end;
end.
S:String;
begin
Readln(A);
Str(A,S);
While not(S='') do
begin
Writeln(S);
Delete(S,1,1);
end;
end.
Ответ дал:
0
Читать не чего не надо
Ответ дал:
0
Что не так?
Ответ дал:
0
Вот такого содержания
12345
2345
345
45
5
12345
2345
345
45
5
Ответ дал:
0
программа выводит правильно, т.к. ввод за вывод не считают
Ответ дал:
0
если не хочешь тогда так:
var S:String;
begin
Readln(S);
While not(S='') do
begin
Delete(S,1,1);
Writeln(S);
end;
end.
var S:String;
begin
Readln(S);
While not(S='') do
begin
Delete(S,1,1);
Writeln(S);
end;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад