№1
var a,b,c,sr_arf: real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
sr_arf:=(a+b+c)/3;
writeln('Среднее арифметическое чисел = ',sr_arf);
end.
№2
a=a + \frac{b}{c}
b= \frac{4}{2a - |b| + 5}
c= \sqrt{ {a}^{2} + b \times b }
Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
Изменил некоторые таблицы. Данных очень мало. Придумывай и набивай еще. Надо, чтобы поездок было много, в разные месяца и года. База находится по ссылке https://yadi.sk/d/pjPhSDS1TMjF4
Знать команды для начала, "поднятия" пера, команду для того,чтобы "опустить" перо. и вписывать потом точки.