var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Ссылка – это адрес объекта (ячейки, блока ячеек) используемый при записи формулы. Существуют 3 вида ссылок: относительные,абсолютные и смешанные. Абсолютные ссылки в формулах используются для указания фиксированного адреса ячейки. При перемещении или копировании формулы абсолютные ссылки не изменяются.
Вычислить сумму ряда 1+1.5+2+2.5+...+30
Алг Число
нач
цел n,a,b,c,d
ввод n
a:=mod(n,10);
n:=div(n,10);
b:=mod(n,10);
n:=div(n,10);
c:=mod(n,10);
n:=div(n,10);
d:=n;
вывод "Сумма цифр числа = ", a+b+c+d;
вывод " Произведение цифр числа = ",a*b*c*d;
кон
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.