Нужно исправить ошибки помогите пожалуйста,даю 25 балов
Приложения:

Ответы на вопрос
Ответил Nozfs
0
Ответ:
program cifry;
var p: integer;
var c: integer;
var s: integer;
var d: byte;
BEGIN
writeln('Программа расчёта разности произведения и суммы цифр трёхзначного числа.');
c:=100+random (900);
writeln('Число -', c);
p:=1;
s:=0;
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10;
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10;
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10;
write('Разность произведения и суммы цифр числа -', p-s);
end.
Объяснение:
Нуэно ставить ";" + переменная var
var p:integer, Нужно запускать програму и останавливать BEGIN , end. write писать в одной строке!
Новые вопросы
Математика,
2 года назад
Физика,
2 года назад
Музыка,
7 лет назад
Математика,
8 лет назад
История,
8 лет назад