Var
a,b,c,sum,pr:longint
begin
read(a);
b:=a div 10;
c:=a mod 10;
sum:=b+c;
pr:=b*c;
write(sum,' ',pr);
end.
Китайцы называют его мышонком
В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок
Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение: