Пожалуйста, ребят, вы же гении информатики!нужно написать программу в QBASIC , которая нарисует звездное небо из 500 звезд (разноцветными
5-9 класс
|
точками)!
SCREEN 12
RANDOMIZE TIMER
FOR I = 1 TO 500
x = INT(RND * 639) + 1
y = INT(RND * 479) + 1
c = INT(RND * 15) + 1
PSET (x, y), c
NEXT I
END
Другие вопросы из категории
страницы текста?
числовой информации,а Петя должен отгадать это правило. 1 - 1;2 - 2;3 - 0;4 - 1; 20 - 2;21 - 0. 1 - 0;2 - 0;3 - 1;4 - 1;20 - 6;21 - 7.
Читайте также
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
1. Writel(' вести стоимость перчатки наприм')
read (x)
2 стоимость сумки- наприм.
3.стоимость ремня- наприм.
4.если общая сумма больше 800р, то вывести сумму с учетом 10% скидки
5.если сумма меньше 800р, то вывести сумму
Помогите пожалуйста очень нужно, благодарю!!!