Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

плиз проверте прогу ???

KreZyMeN Мастер (1443), на голосовании 10 лет назад
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.
Дополнен 10 лет назад
подскажите как вывести на экран ???
суть програмы в том чтобы сложить 2 числа и разделиь их на третье число !
Голосование за лучший ответ
Радамир Горынин Мыслитель (6387) 10 лет назад
молочик все хорошо!
но что то я не увидел где написано про вывод результата!
KreZyMeNМастер (1443) 10 лет назад
подскажы как вывести результат ???
Радамир Горынин Мыслитель (6387) Writeln(w:2:2);
The Cat Искусственный Интеллект (115757) 10 лет назад
z / b даёт число с плавающей точкой, а w объявлена как целая -- будет ругань компилятора.
Руслан Синкевич Профи (787) 10 лет назад
Все хорошо, кроме того, что W должно быть вещественным, к примеру real, а также не выводится на экран результат вычисления, но может так и задумано?
KreZyMeNМастер (1443) 10 лет назад
как вывести на экран ???
Руслан СинкевичПрофи (787) 10 лет назад
writeln('w=', w);
fallen down Мудрец (19650) 10 лет назад
end; на 11 строке зачем ?
Даниил Гуру (4189) 10 лет назад
Integer тип неуместен при делении, замените на real.
Николай Мурин Мыслитель (7918) 10 лет назад
вобщем тут все исправлено о чем упомянули люди =)

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.
Похожие вопросы