var sr: real;
х: integer;
begin
readln(х); //ввод трехзначного числа
sr:=((х div 100)+((х div 10) mod 10)+(х mod 10))/3; //среднее арифметическое цифр числа
writeln(sr);
end.
УСЛОВНЫЙ ОПЕРАТОР IF…THEN…ELSE
Условный оператор if служит для организации процесса вычислений в зависимости от какого-либо логического условия. Оператор имеет вид:
if <условие> then <оператор_1> else <оператор_2>;
Если условие истинно, то выполняется оператор (простой или составной), следующий за словом then. Но если условие ложно, то будет выполняться оператор, следующий за словом else.
Если в задаче требуется, чтобы в зависимости от значения условия выполнялся не один оператор, а несколько, то ставятся операторные скобки begin …end
if <условие> then
begin
<оператор_1>; <оператор_2>;
end
else
begin
<оператор_3>; <оператор_4>;
end;
Альтернативная ветвь else может отсутствовать, если в ней нет необходимости. В таком «усеченном» операторе в случае невыполнения условия ничего не происходит, и управление передается следующему оператору
if <условие> then <оператор_1>
Для сравнения переменных в условных выражениях применяются операции отношения
=, <, >, >=, <=, <>
Если введенное с клавиатуры число положительное, то увеличить его на два, иначе увеличить его в 2 раза.
var a: integer;
begin
readln (a);
if a>0 then
a:= a+2
else
a:=a*2;
writeln (a);
end.
