Набор соглашений о взаимодействиях в компьютерной сети, то есть А
Div - обозначает, что при делении остается только целая часть. а дробная убирается
например
27div 5 = 5
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
Легко же, расширение - .ppt
Var n,k : Integer;
Begin
k:=0;
Readln(n);
While n>0 do
Begin
n:=n div 10;
Inc(k);
end;
Writeln('Цфир: ',k);
end.