Составить программу, в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы.

Question

Информатика

Христоня

5 декабря, 11:29

Составить программу, в которой осуществляется ввод трёх целых чисел с клавиатуры и вывод на экран монитора значения их суммы.

+3

Ответы (2)

Знаете ответ на вопрос?

Ионич · Answer 1

Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a, b, c, d, z:integer;

begin

writeln ('Введите 1 число') ;

read (a) ;

writeln ('Введите 2 число') ;

read (b) ;

writeln ('Введите 3 число') ;

read (c) ;

d:=a+b+c;

writeln ('Сумма чисел ', a,'+', b,'+', c,'=', d) ;

writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет') ;

read (z) ;

while (z = 1) do

begin

writeln ('Введите 1 число') ;

read (a) ;

writeln ('Введите 2 число') ;

read (b) ;

writeln ('Введите 3 число') ;

read (c) ;

d:=a+b+c;

writeln ('Сумма чисел ', a,'+', b,'+', c,'=', d) ;

writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет') ;

read (z) ;

end;

end.

Градислава · Answer 2

Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a, b, c, d, z:integer;

begin

writeln ('Введите 1 число') ;

read (a) ;

writeln ('Введите 2 число') ;

read (b) ;

writeln ('Введите 3 число') ;

read (c) ;

d:=a+b+c;

writeln ('Сумма чисел ', a,'+', b,'+', c,'=', d) ;

writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет') ;

read (z) ;

while (z = 1) do

begin

writeln ('Введите 1 число') ;

read (a) ;

writeln ('Введите 2 число') ;

read (b) ;

writeln ('Введите 3 число') ;

read (c) ;

d:=a+b+c;

writeln ('Сумма чисел ', a,'+', b,'+', c,'=', d) ;

writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет') ;

read (z) ;

end;

end.