Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
алгоритм перехода улицы по свотофору
1.посмотреть какой цвет на светофоре
2.если зеленый то посмотреть направо
3.посмотреть налево
4.если машын нету, то начать переходить
5.дойти до островка и снова посмотреть направо и налево и перейти дорогу
алгоритм посадки дерева
1.взять лопату и выкопать ямку, положыть лопату
2.взять садженец и поставить его в ямку
3.взять ведро и полить садженец, положыть ведро
4.взять лопату и закопать садженец, положыть лопату
5.взять ведро и полить садженец, положить ведро
program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
4)
for i: =1 to n do if (i mod 2=0) then writeln(i);
5)
i,n,k: integer;
k: =0;
for i: =1 to n do if (i mod 15=0) then k: =k+1;
writeln(k);
7 - диск, винт, сиди
9 пробел
10 импорт
11 окно
12ввод
15 стэк ?
16граф
18свич
20тэг
Популярные вопросы