Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
Ответ 2
т.к у самого минимального числа индекс массива равен 2
<span>1. получить стартовые координаты </span>
<span>2. перейти на стартовые координаты </span>
<span>3. выбрать цвет кисти </span>
<span>4. входим в цикл обнуление всех счетчиков </span>
<span>4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем </span>
<span>4.2 проверям не конец ли рамки если конец поврот на 90 градусов </span>
<span>4.3 чертим штрих </span>
<span>4.4 сдвигаемся на шаг </span>
<span>4.5 возвращаемся в пункт 4.1</span>
Книга, телевизор, радио, газета,друзья
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.