logo
Войти Регистрация Спроси ai-bota


СКОФИЕЛД
24.01.2020 14:02

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
KowMAp
KowMAp
25.02.2022 14:38
Д/З Тема: Тексты в компьютерной памяти 1. Какой объём памяти займёт приведённый ниже текст, если известно, что 1символ в компьютерном алфавите равен 1 байту?Happy New...
Alina2006mark
Alina2006mark
17.02.2020 07:20
НУЖНО СДЕЛАТЬ ДО ЗАВТРА! ТОЛЬКО ПОНЯТНО ЧТОБЫ БЫЛО...
белка2010
белка2010
11.05.2022 00:03
Pascal Посчитать кол-во элементов меньше 25 в массиве Q. Размерность массива 50, все элементы целого типа, элементы массива задаются случайным образом...
elv1n
elv1n
11.05.2022 00:03
в чем ошибка в моей программе? Не выдает результат работы почему-то....
viahseslav
viahseslav
13.06.2022 06:40
Желательно все с фото1)В среде программирования Кумир для исполнителя Робот на клетчатом поле получить изображение рисунка.по горизонтали 6 клеток2)г-образная Разработать...
maxmax6
maxmax6
29.10.2021 02:47
Создания растрового рисунка. 2. Укажите назначение для следующих пиктограмм.ПиктограммаНазначениеОДи​...
простоквашино2345
Изображение на экране монитора образуется из отдельных точек, как они называются? а) Пикселиб) Кубики​...
pilotprofix
pilotprofix
07.09.2020 18:24
8 класс напишите решение задачи на листочке...
qqwqe
qqwqe
02.10.2022 12:15
Was hat jörg gestern gemacht? (- von der schule züruckkommen - für die klassenarbeit lernen - tanja anrufen - ein geschenk für seine mutter kaufen - ins café gehen -...
Vetal321
Vetal321
02.10.2022 12:15
Предположите мотивы по которым александр iii не принял предложение народовольцев? (письмо народовольцев александру)...
Ответ:
568500
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.
0,0(0 оценок)
Ответ:
Napol28
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота