Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
<span>a (>0) = 180653
k = 6</span>
Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;
begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.
• текстовую
• графическую
• звуковую
• видеоинформацию
• мультимедиа информацию
Program znanija;
var x:integer;
begin
readln(x);
if(a>3) then writeln('this number > 3')
else writeln('This number not > 3');
end.
С тебя спасибка!
Ответы являются приближёнными так как вопросы не точные. но относительно контекста всё правильно.
1. С)
2. D)
3. C)