Математической модели....................
Объяснение:
^ не ставится, но выполняет свои действия, у себя его ставьте!
Program z2;Var a,b,c:integer; SA:real;Begin write('Введите 1-ое число: '); readln(a); write('Введите 1-ое число: '); readln(b); write('Введите 3-ье число: '); readln(c); SA:= (a + b + c) / 3; writeln('Сумма: ', SA);End.
While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>