<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
//<em>ax</em><em> + </em><em>b</em><em> = 0,</em><span> где </span><em>а и b</em><span> – любые числа.
var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой
begin; //начало программы
readln(a); //ввод a
readln(b); //ввод b
x:=-b/a; //находим корень
writeln(x); //выводим корень
end. //конец программы</span>
<span>Объект, который указывает на текущее место в документе, называется курсор.</span>
#include <iostream>
using namespace std;
int main(){
int a;
cin>>a;
switch (a%2){
case 0:
{
cout<<"Yes";
break;
}
default:
cout<<"No";
}
cin.get();
cin.get();
return 0;
}<span>
</span>