б)программа для создания и редактирования рисунков
1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
Устройства пк:
1) монитор
2) принтер
3) мышь
принтер:
1) лазерный
2)струйный
Монитор:
1) матричный
2) жидкокристаллический
Мышь:
1) оптическая
2) шариковая
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.
Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>