Войти
Регистрация
Спроси ai-bota
реа200
24.07.2022 17:16
Написать программу в паскале которая рисует звездочки на весь экран вот так: * ** *** и так далее до конца экрана
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Элиманго
24.09.2021 16:57
Решить : для данного x вычислить значение функции, заданной системой: f(x)= { ((sqrt(x+2 ) - 5)/( x)+ cosx+lnx; x≥1; 2* sgr(x) +( sgr(x-1)) /|x| ; x 1. решение написать на языке...
XxNoNamexX
24.09.2021 16:57
Отредактировать программу - паскаль. где-то ошибка. необходимо удалить первый кратный 3 элемент массива. program udalenie; var i,n,k: integer; a: array[1..1000] of integer; begin...
Vasya789
11.09.2020 04:50
Наведіть приклади розгалужень з природних явищ, з навчальної діяльності, з навколишнього життя....
OVRBTZ
22.06.2020 03:33
Дан фрагмент программы: x:= 81; write ( ответ: , х: 2, км/ч ); На экране будет выведено:...
YourMango
22.01.2020 16:48
Расскажите об интерактивной веб-странице и приведите примеры...
zhzdd
25.04.2020 16:26
Задание: Нарисовать блок схему и написать программу вычисления цикла с параметром. Определите расчетную массу состава на подъеме с уклоном i (отношение высоты подъема к длине...
PolinaEpifanova
07.11.2021 08:24
В предложенных описаниях предметных областей выявите информационные объекты, о которых необходимо хранить информацию. Для каждого информационного объекта укажите основные реквизиты...
gr1mez
16.02.2022 09:42
1.Які об єкти містить відеофільм a. Заголовокb. Титриc. звуковий супровідd. візуальні ефектиe. ефекти переходу2. Мультимедіа – цеa. поєднання різних в подання повідомленьb. набір...
AlexIQ161
14.01.2020 01:48
Автоматизированный прибор производит 20 измерений в секунду. Запись каждого измерения занимает 1 байт информации. Какой объем памяти потребуется компьютеру для записи измерений,...
АРТЁМ55567
04.10.2020 19:26
Ввести одномерный массив A из N элементов. Вычислить Srg– среднее геометрическое положительных элементов массива. Заменить на Srg первый элемент массива. Массив вывести до и...
Ответ:
Артем14698752269
15.07.2020 17:47
Var n,k:integer;
begin
k:=0;
while k>=0 do
begin
k:= k+1;
for n:=1 to k do
begin
write('*');
end;
writeln;
end;
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота