1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.
1 способ:
если x<=-1
то ...
иначе если x<0 то ...
иначе ...
2 способ:
если x<=-1 то ...
если (x>-1) И (x<0) то ...
если x>=0 то ...
Begin
var c := 0;
var x := readinteger('Введите число:');
while x > 0 do
begin
x := x div 10;
c := c + 1;
end;
if(c = 3) then write('Да')
else write('Нет');
end.
Неверно высказывание a)
Приоритет операций - и + одинаков.
думаю так.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.