Плиз проверте прогу ???
program chisla;
var k,b,z,w:integer;
begin
writeln ('введите число 1: ');
read (k);
writeln ('введите число 2: ');
read (z);
writeln ('введите число деления : ');
read (b);
w:=k+z/b;
end;
readln;
end.
подскажите как вывести на экран ???
суть програмы в том чтобы сложить 2 числа и разделиь их на третье число !
вобщем тут все исправлено о чем упомянули люди =)
program chisla;
var k,b,z:integer;
w: real;
begin
writeln ('введите число 1: ');
read (k);
writeln ('введите число 2: ');
read (z);
writeln ('введите число деления : ');
read (b);
w:=k+z/b;
Writeln(w:2:2);
readln;
end.
Integer тип неуместен при делении, замените на real.
end; на 11 строке зачем ?
Все хорошо, кроме того, что W должно быть вещественным, к примеру real, а также не выводится на экран результат вычисления, но может так и задумано?
z / b даёт число с плавающей точкой, а w объявлена как целая -- будет ругань компилятора.
