Var a,b: integer;
Begin
Writeln('Введите a,b');
readln(a,b);
Writeln(a-sqr(b));
readln();
<span>end.</span>
[2, "11111"]
[3, "1011"]
[4, "133"]
[5, "111"]
[6, "51"]
[7, "43"]
[8, "37"]
[9, "34"]
[10, "31"]
[11, "29"]
[12, "27"]
[13, "25"]
[14, "23"]
[15, "21"]
[16, "1f"]
[17, "1e"]
[18, "1d"]
[19, "1c"]
[20, "1b"]
[21, "1a"]
[22, "19"]
[23, "18"]
[24, "17"]
[25, "16"]
[26, "15"]
[27, "14"]
[28, "13"]
[29, "12"]
[30, "11"]
[31, "10"]
[32, "v"]
[33, "v"]
[34, "v"]
[35, "v"]
[36, "v"]
Ответ 8,12,24
Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
<span>это специальный процессор, который предназначен для удаленного запуска приложений, обработки запросов на получение информации из баз данных и обеспечения связи с общими внешними устройствами: принтерами, модемами, устройствами чтения компакт-дисков.
</span><span>это информационная технология работы в сети, позволяющая людям общаться, оперативно получать информацию и обмениваться ею.
</span>
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.