1. Информатика
  2. Написать программу на pascal

Написать программу на pascal ) нужно, что бы программа выводила цикл. вот такого содержания 12345 2345 345 45 5 треугольником.

Вовка753 Вовка753    2   11.07.2019 17:40    1

Ответы
suhtuevaa suhtuevaa  17.09.2020 22:59
Var A:integer;
S:String;
begin
Readln(A);
Str(A,S);
While not(S='') do
begin
Writeln(S);
Delete(S,1,1);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Аманда55573 Аманда55573  17.09.2020 22:59
Var
i:longint;
s:string;
begin
s:='12345';
for i:=1 to 5 do
 begin
 writeln(S);
 delete(S,1,1);
 end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
linaangel20012 linaangel20012  03.06.2019 19:00
Перевести число а из 2-ой в 10-ю систему счисления. перевести число в из 10-ой в 2-ю . перевести число с 10-ой в 2-ю систему счисления ....
Amelka06 Amelka06  23.05.2019 17:10
Какая цветовая палитра используется для вывода изображения на экран монитора?...
Ульяна3330 Ульяна3330  23.05.2019 17:10
Врач -стоматолог принимает пациентов с 8 утра до 12 часов дня.на каждого пациента отводится 30 минут .какое количество информации содержит собщение о том ,что петя записался на...
Yfnfif2617 Yfnfif2617  23.05.2019 17:10
Втечении 20 секунд было передано сообщение,кол-во информации в котором равно 5000 байтов. каков размер алфавита,если скорость передачи-800 символов в секунду?...
mariee875maria mariee875maria  27.07.2019 13:50
Решить 1) sqr(2)+sqrt(35+1)= 2) sqrt(8+int(41.5))= 3)11div5 = 4) 14 mod 3= 5) 21div5 = 6)(123div 10) mod 10= 7)(1245 div 1000)mod10= 8)34 mod 5= 9) 1 mod 10= 10) 1 div 10=...
Reginmdms Reginmdms  17.07.2019 08:50
Кола весит тренадцать грамм а пепси ? сколько весит пепси...
12VikaSmirnova34 12VikaSmirnova34  31.08.2019 08:50
1.в последовательности чисел натуральных найти количество чисел кратных трем 2.в последовательности натуральных чисел найти четные числа заканчиваются на 4...
ВеДьМоЧкА11111 ВеДьМоЧкА11111  31.08.2019 08:50
Правда или ложь: концевая сноска – это список ссылок, размещенный в конце документа....
missis23ashikhmina missis23ashikhmina  31.08.2019 08:50
И! составьте блок схему по коду begin for k : = 1 to 100 do begin x : = random(700); y : = random(700); r : = 10; circle(x, y, r); floodfill(x, y, clblue); {закрашивает фигуру в...
Madara908 Madara908  31.08.2019 08:50
Как разделить 8 литровый бедно подсолнечного масла на две равные части по 4 литрового если кроме 8 литрового полного есть два пустых на 5 литровый и 3 литровый...

Популярные вопросы