Question

Задание 3. Найдите ошибки в данной программе:

program 1Zadacha;
var a, b, c, d, s, p, r, q: integer;
began
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/b;
writeln (Сумма=,s);
writeln (Произведение=,p);
write (Разность=,r);
write (Частное=,q)
end.

Answer 1

Ниже приведен вариант, когда программа запустится, но не выполнится:

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

...