1.
var n1,n2,n3: integer;
begin
writeln('Введите n1,n2,n3: ');
readln(n1,n2,n3);
if (n2<n1) then swap(n2,n1);
if (n3<n1) then swap(n3,n1);
if (n3<n2) then swap(n3,n2);
writeln('n1,n2,n3 в возрастающем порядке: ',
n1,' ',n2,' ',n3);
end.
2.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a-b-c)/(sqrt(a*b*c));
writeln(s);
end.
3.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a+b+c)/3;
writeln('Среднее арифметическое: ',s);
end.
4.
var a,b: integer;
var s: real;
begin
writeln('Введите a,b: ');
readln(a,b);
if ((a>0) and (b>0)) then s:=a+b
else s:=a*a-b*b;
writeln(s);
end.
Ниже приведен вариант, когда программа запустится, но не выполнится:
program Zadacha; // удален символ 1
var a, b, c, d, s, p, r, q: integer;
begin // began заменен на begin
write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;
writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;
writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;
writeln (‘Ведите четвертое число=’, d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:
program Zadacha;
var a, b, c, d, s, p, r, q: integer;
begin
write ('Ведите первое число='); read(a);
writeln ('Ведите второе число='); read(b);
writeln ('Ведите третье число='); read(c);
writeln ('Ведите четвертое число='); read(d);
s:=a+b+c+d;
p:=a*b*c*d;
r:=a-b-c-d;
q:=a div b;
writeln ('Сумма=',s);
writeln ('Произведение=',p);
write ('Разность=',r);
write ('Частное=',q)
end.
Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:
program Zadacha;
var a, b, c, d, s, p, r: integer;
var q: real;
begin
...
