Question

Найдите ошибки в программах, пожалуйста
(Чтобы программы работали)

Answer 1

const s=4;
var a,d,s:integer; // повторно обьвлена переменная s
begin
writeln('Введите a и d');
readln(a,d);
s:=(2*a+d*(8-1))/2*8; // 1. S-это либо константа(нельзя изменить)
                               // 2. S-это целый тип, поскольку используется "/", то
                                       возникнет ошибка 
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.


const s:=4;  // константные выражения через равно записываются
var a,d=integer; // описание переменных происходит через двоеточие 
begin
writeln('Введите а и д');
readln(a,d);
s:=(2*a+d*(8-1))/2*8;  // константое выражение нельзя изменить 
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.

Работающая программа:
var a,d:integer;
s:real;
begin
writeln('Введите а и д');
readln(a,d);
s:=(2*a+d*(8-1))/2*8; 
writeln('кол-во деталей за 8 часов= ', s);
readln;
end.