Обычна вводиться данное задание с условием:
if данное поле заполнено цифрой от: "10-20" + его значение "лет"
if "21-24" + "год"
if "25-120" + "год"
примерно так.
Использование модели "черный ящик позволяет изучить" только взаимдействие предмета и среды при этом даже отстутстуют границы между средой и объектом. считается сущестующим
<u>PascalABC.NET 3.2, сборка 1379 от 21.01.2017</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,k):=(ReadInteger('n='),1);
Write('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin Print(i); k+=1 end;
Writeln(n);
if k=2 then Writeln('Число простое')
end.
<u>Примеры</u>
n= 97
Делители: 1 97
Число простое
n= 45
Делители: 1 3 5 9 15 45
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>