<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007
var x:integer;
Begin
write ('Введите х='); readln(x);
if x>0 then
write('Положительное')
else
write('Отрицательное');
<em>if x=0 then write('равно нулю')
</em>
end.
ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.
А,б,в, г, г, л
т.к. там есть цифры равные и более 5....