На скрине.
1 - логическое или
& - логическое и
1 с кружком - логическое или-не
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Можно так: складываем. Делим пополам - получаем среднее. Находим разность между заданными числами и средним. Если разность отрицательная - то меньшее число, если разность положительная - то большее.
Ответ:
Объяснение:
var a,b,c,d:integer;
begin
for a:=3 to 6 do
for b:=3 to 6 do
for c:=3 to 6 do
for d:=3 to 6 do begin
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and (frac(sqrt(1000*a+100*b+10*c+d))=0) then
writeln(a,b,c,d);
end;
end.