Извиняюсь за качество выполнения блок-схемы,я думаю смысл понятен.Можно придумать множество примеров.Вот один из них
Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
1 вариант:
var a: integer;
begin
write ('Введите длину ребра куба: '); read(a);
writeln ('Площадь грани куба = ',a*2);
end.
2 вариант:
var a: integer;
begin
a:=6; // Поменяйте значение на нужное
writeln ('Площадь грани куба = ',a*2);
end.