Question

Скласти за до програмування Паскаль програму знаходження суми трьох чисел ​

Answer 1

program SumOfTheThreeNumbers;

var

//a & b & c — соответсвенно: первое, второе, третье число, вводимое пользователем

a, b, c, sum: integer;

//Объявление суммы чисел

text : string;

begin

//Ввод пользователя

writeln ('Write the first number: ');

readln(a);

writeln ('Write the second number: ');

readln(b);

writeln ('Wrte the third number: ');

readln(c);

//Даём значение переменной "sum"

sum:=a+b+c;

text:= 'The sum of the numbers you entered is: ';

//Выводим сумму

writeln(text, sum);

end.

Answer 2

program Hello;

var

first, second, third, sum: integer;  

govorilka : string;  

begin  

writeln ('vvedite a ');  

readln(first);  

writeln ('vvedite b ');  

readln(second);  

writeln ('vvedite a ');  

readln(third);  

sum := first+second+third;  

writeln(' ');

writeln(govorilka, sum);

readln(sum);

end.