var d:real;
i,k:integer;
Begin
k:=0;
for i:= 1 to 3 do begin
writeln("Введит число");
read(d);
if (d<0) then k:=k+1;
end;
writeln(k);
End.
1 а) удаление выделенного текста.
2 <span>в) щелкнуть а значке на ленте World .</span>
3 <span>воспользоваться клавишей Delete. </span>
4 <span>б) всех страниц в документе.</span>
Число дано в миллиардных, а не миллионных. А перевести можно через клик прав. клав. мыши на ячейку с этим числом , формат ячеек, числовой, число десятичных знаков, если я конечно правильно понял т.к вынос мозга из-за некорректной формулировки задачи.
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.