Полезная- чтение правил и формул
Бесполезная- чтеник комиксов
Коля нашел скарб.Це слово информатика.Щоб знания получить надо по буквам знайти.Он нашел и получил знания
Его расширение (*.txt например)
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.
Как-то так, если не так то извини