карандаш — графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.
Ответ разместил: Гость
var c,a,b,i,j,l: integer; begin cls;
write(‘введите через пробел отрезок’); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j < >0) and (j < = l) do begin inc(j); end; if (j >l) then begin write(c,’ ‘); c: =i; end; end; end.
Ответ разместил: Гость
var k, d, n : integer;
writeln(‘введите число k=’);
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, ‘- нет, число не простое’) else writeln (k, ‘ да,число простое’);
Ответ разместил: Гость
program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,’-е случайное число: ‘,s: 4); end; beginwriteln(‘индексы элементов кратных 3: ‘); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ‘ ‘) end; end; end.
Задачи по математике на Движение. Как объяснить ребенку задачи на движение?
Источник: otvetiq.com
Шарик по лесенке прыгает снизу вверх — Pascal ABC
Нам в колледже задали на дом написать программу в модуле graphabc, типо анимации какой-то. Значит нужно нарисовать шарик, который будет падать сверху вниз по лесенке. Кому не сложно — сделайте код программы попроще. Уважаемые программисты помогите пожалуйста!
Код к задаче: «Шарик по лесенке прыгает снизу вверх»
Листинг программы
uses graphABC; var x0,y0,x,y,x1,y1,i,w,h,r:integer; begin w:=windowwidth div 6; h:=windowheight div 6; x1:=2;y1:=40; r:=10; lockdrawing; repeat clearwindow; setpencolor(clBlue); circle(x1+r,y1-r-1,r); floodfill(x1+r,y1-r-1,clBlue); x:=0; y:=40; setpencolor(clRed); for i:=1 to 6 do begin line(x,y,x+w,y); line(x+w,y,x+w,y+h); x:=x+w; y:=y+h; end; sleep(50); redraw; x1:=x1+2; if x1 mod w=0 then begin x1:=x1+r; y1:=y1+h; end; setpencolor(clBlack); until x1>windowwidth-r-2; end.
Источник: studassistent.ru
составьте программу которая имитирует движение воздушного шара снизу вверх
1 Смотреть ответы Добавь ответ +10 баллов
Ответы 1
Ответ разместил: ivanovasvetak
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Удалить ответ +1 балл
Другие вопросы по Информатике
Информатика, madama1994
Вывести строку, которая встречается более 1-го раза в файле pascal.
Задачи на движение. Учимся решать задачи на движение. Способы решения задач на движение.
Информатика, tolegenadelya08
Нужен проект на тему «опрацювання об’єктів мультимедіа» , нужно на украинском и не презентацию, а именно проект шрифт должен быть times new roman размер 14 1.титульная страница 2.п.
Информатика, chestnut3342
Решить эти от седьмого до одиннадцатого 7.исполнитель черепашка перемещается на экране компьютера,оставляя след в виде линии. в каждый конкретный момент известно положение исполнит.
Информатика, Валерия1704
Разработайте алгоритм, который находит в массиве все пары целых чисел, сума которых ровняется заданному значению.
Источник: 0tvet.com