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.