Question

Дайте ответ на данные вопросы (язык поскаль)

1.Объявить три переменные целого типа; ввести их значения с клавиатуры (используя стандартную процедуру readln); вывести на экран сумму значений этих переменных и среднее арифметическое значение по этим трем переменным (используя стандартную процедуру writeln).


2.Та же задача, но для значения суммы использовать отдельную переменную целого типа (её тоже нужно объявить), а для значения среднего арифметического — отдельную переменную нецелого («с плавающей запятой») типа (её тоже нужно объявить). Итого в программе будет объявлено пять переменных. Сперва найти сумму введенных значений трех переменных, поместив её в отдельную переменную, затем вывести её на экран. Аналогично поступить для значения среднего арифметического.

3.Объявить переменную строкового типа (тип String); ввести с клавиатуры её значение (с помощью readln); вывести на экран значение этой переменной (с помощью writeln). Затем изменить значение этой переменной (например с помощью оператора присваивания присвоить ей новое значение) и снова «вывести эту переменную» на экран

Answer 1

1.

var a,b,c:integer;

begin

 readln(a,b,c);

 writeln(a+b+c);

 writeln((a+b+c)/3);

end.

2.

var a,b,c,sum:integer;

   average:real;

begin

 readln(a,b,c);

 sum := a+b+c;

 writeln(sum);

 average := sum/3;

 writeln(average);

end.

3.

var str:string;

begin

 readln(str);

 writeln(str);

 str := 'Hello world!';

 writeln(str);

end.