Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
A8 = 168
AB = 171
B5 = 181
CA = 202
Ответ: 0
3. -ABS(-КОРЕНЬ(4)) = -ABS(-2) = -2
ответ: Г) -2
5. В Power Point 2003 - Показ слайдов > Настройка анимации
ответ: А) Показ слайдов
7. Диапазон C3:E3 состоит из 3 ячеек, диапазон С3:F3 состоит из 4 ячеек ⇒ СРЗНАЧ(C3:F3) = (15+5)/4 = 5
ответ: В) 5
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.