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

Загрузить jpg
Реклама

• Попроси больше объяснений
• Следить
• Отметить нарушение

MrSwister

6 дней назад
Войти чтобы добавить комментарий

Ответы и объяснения

Лучший Ответ!

• Giammy
• почетный грамотей

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.

• Комментарии
• Отметить нарушение

3.0

2 оценки

2 оценки

Оцени!

Оцени!
Спасибо1Войти чтобы добавить комментарий

Реклама